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[57] ABSTRACT 

An automatic chromosome analysis system is provided 
wherein a suitably prepared slide with chromosome 
spreads thereon is placed on the stage of an automated 
microscope. The automated microscope stage is com- 
puter operated to move the slide to enable detection of 
chromosome spreads on the slide. The X and Y location 
of each chromosome spread that is detected is stored. 
At the conclusion of this searching operation, the com- 
puter directs the microscope to again sequence through 
the chromosome spread locations in response to the 
stored X and Y locations. At this time an operator can 
view these spreads to determine which ones are worth- 
while and which ones are not. He is provided with an 
accept-reject switch. The microscope stage thereafter 
again sequences through only the accepted chromo- 
some spreads, and this time a digital photograph of each 
of the chromosome spreads is made and entered into the 
computer storage. The computer thereafter measures 
the chromosomes in a spread, classifies them by group 
or by type and also prepares a digital karyotype image. 
This image is converted to analog form, displayed and 
printed out and constitutes a primary output of the 
system. Chromosome measurement data is filed in an 
interactive data base for subsequent statistical analysis. 
The computer system can also prepare a patient report 
summarizing the result of the analysis and listing sus- 
pected abnormalities. 

15 Oaims, 4 IJrawing Figures 
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AUTOMATED CLINICAL SYSTEM FOR 
CHROMOSOME ANALYSIS 

ORIGIN OF THE INVENTION 

The invention described herein was made in the per- 
formance of work under a NASA contract and is sub- 
ject to the provisions of Section 305 of the National 
Aeronautics and Space Act of 1958, Public Law 85-568 
(72 Stat 435; 42 USC 2457). 

BACKGROUND OF THE INVENTION 

This invention relates to automated medical analysis 
equipment and more particularly to improvements 
therein. 

Since the introduction of a method allowing micro- 
scopic examination of individual human chromosomes, 
the karyotype has emerged as a tool of increasing diag- 
nostic value. Under microscopic examination, the chro- 
mosomes, from a somatic cell in the metaphase stage of 20 
cell division, appear in scattered disarray. The karyo- 
type is a systematic grouping of metaphase chromo- 
somes from a single cell. TTiis grouping was conceived 
to assist the geneticist in the identification of individu^ 
chromosomes. In normal humans, the 46 chromosomes 25 
can be reliably ordered into 24 types (seven groups). 
The diagnostic value of the karyotype is predicated 
upon the existence of a consistent pattern in normal 
patients and the correlation of certain chromosomal 
aberrations with specific clinical observations. There 
are two types of c^omosomal irregularities: numerical 
and structural. Numerical aberrations exist when the 
number of chromosomes in one or more groups differs 
from the normal case. Structural aberrations manifest 
themselves in many forms, some presumably unob- 35 
served as yet. Those which presently merit nomencla- 
ture, amongst others, include variations in arm length 
and centromere position. 

At present, manual karyotyping is so tedious and 
expensive that its general application is usually limited 40 
to those situations involving a suspected abnormality. In 
these circumstances, the clinical evidence is ofiten so 
overpowering that the karyotype serves primarily as a 
corroborative tool. In a addition, manual karyotyping 
offers little prospect of quantitative data. It is desirable 45 
to extend karyotype an^ysis to the clinically asymp- 
tomatic situation. For example, screening all new^rns 
by karyotype may detect certain inherited disorders 
long before clinic^ symptoms appear. As the potency 
and reliability of the karyotype improves, fetal karyoty- 50 
ping through amniocentesis may Income a routine part 
of prenatal care. Screening studies on large populations 
offer the potential of uncovering the effects of industrial 
and environmental poisons, aging, and long term low 
dosage ionizing radiations. These factors may manifest 55 
themselves in subtle structural aberrations requiring 
detailed analysis of the chromosome morphology. The 
ability to process cells rapidly and inexpensively would 
also aid in the detection of mosaicism, in which two or 
more cytogenetically distinct lines of cells exist in the 60 
individual. 

There are certain functional requirements for an auto- 
mated chromosome analysis system which should be 
met before widespread acceptance thereof can be antici- 
pated. One of these is that the system should be compat- 65 
ible with current practice producing results compatible 
with those obtained with the present manual system of 
analysis. Further, the system should provide significant 
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time savings in processing cytogenetic specimens with- 
out sacrificing accuracy. Its cost should not be prohibi- 
tive and it should be accurate. 

OBJECTS AND SUMMARY OF THE 
INVENTION 

An object of this invention is to provide a system for 
automating chromosome karyotyping. 

Another object of this invention is to provide an 
10 automated chromosome analysis system which is com- 
patible with current practice. 

Still another object of this present invention is one 
which operates rapidly without sacrificing accuracy, 
and which reduces the cost. 

15 The foregoing and other objects of the invention are 
achieved in a system wherein a previously prepared 
slide, which has a number of chromosome spreads is 
mounted on the stage of a microscope. Under instruc- 
tions of a computer, a search of the slide is undertaken 
to locate the various chromosome spreads on the slide. 
The spread locations are stored. At the end of the slide 
search, it is again initiated with the stage of the micro- 
scope being stopped at each chromosome spread loca- 
tion, to enable a human observer to inspect the chromo- 
some spread and determine whether it is acceptable for 
the purpose of analysis or not. If it is not acceptable the 
observer pushes a button whereby its location is re- 
moved from the spread storage list and the microscope 
stage is moved to the next location. The microscope 
30 automatically focuses at each location. 

After all of the chromosome spread locations have 
been inspected, the microscope is again actuated to 
move its stage so that each one of the accepted chromo- 
some spreads are passed under the optics of the micro- 
scope for the purpose of enabling digital pictures of the 
various spreads to be generated and stored in memory. 
The computer then proceeds to locate and analyze the 
chromosomes in each of the chromosome spreads by 
measuring the chromosomes, classifying them by group 
or by type and preparing a digital karyotype image 
format. This image is then converted to pictorial form 
and displayed on an image display tube to enable any 
corrections, if needed. A joystick control is provided so 
that a cursor, which is produced on the display tube 
screen can have its position moved whereby the opera- 
tor an point out to the computer objects in the image 
which he wants removed or chromosomes which need 
repositioning. Communication with the computer is 
made using a typewriter. The corrected karyotype 
image is then printed out. Provision is also made for a 
printout of the computer analysis of the optical image 
derived from a slide. 

BRIEF DESCRIPTION OF THE DRAWINGS 

FIG. 1 is a schematic drawing of a chromosome anal- 
ysis system, in accordance with this invention. 

FIG. 2 is a schematic drawing of the apparatus used 
to drive the microscope stage. 

FIG. 3 is a flow chart illustrative of the searching and 
detecting operation, in accordance with this invention. 

FIG. 4 is a flow chart illustrating the analysis opera- 
tion in accordance with this invention. 

DESCRIPTION OF THE PREFERRED 
EMBODIMENTS 

FIG. 1 is a block schematic diagram of the configura- 
tion of the system in accordance with this invention. 
The preparation of glass slides containing stained meta- 
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phase chromosome spreads suitable for use with this 
invention is known. The slides can be prepared by dif- 
ferent techniques, such as the homogeneous Giemsa 
staining technique or by the Trypsin-Giemsa banding 
technique. Slides are produced with patient identified- 5 
tion marks. A specimen slide 10 is placed on the stage 12 
of a microscope 14. The stage 12 is motorized, that is it 
is capable of being driven in the X, Y and Z directions 
by three stage motors 16. The stage motors may either 
be controlled via a motor control interface circuit ar- 10 
rangement 18, from a computer 20, or by a stage joy- 
stick 22, when it is enabled to control stage position. A 
stage keyboard 24 enables an operator to select the 
mode of operation desired, that is, either computer 
mode or operator mode. Control of the selection is 15 
normally with the operator; however the computer has 
the option to override the operator mode and/or to 
inhibit subsequent selection of the operator mode. The 
mode of operation is displayed by a stage display 26. A 
typewriter 27 serves to enable entry of data, instructions 20 
or queries into the computer or to receive data from the 
computer. 

The configuration of the optical imaging system of 
the microscope allows the specimen to be viewed simul- 
taneously through a binocular eyepiece 28 and by a 25 
television camera 30. The output of the television cam- 
era is applied to a monitor 32, to an image digitizing 
system, M and also to circuitry designated as '‘Spread 
Detector and Auto Focus Unit” 36. 

The Spread Detector and Auto Focus Unit 36 com- 30 
prises circuitry which serves the function of detecting 
the presence of a chromosome spread and also for auto- 
matically focusing the television camera equipment for 
performing these functions is described in an article 
entitled “Metaphase Spread Detection and Focus Using 35 
Closed Circuit Television,” by Johnson and Goforth, 
published in The Journal of Histochemistry and Cyto- 
chemistry in 1974, by the Histochemical Society, Inc. 
The Image Digitizing System 34 serves the purpose of 
digitizing the image being viewed by the television 40 
camera which is then entered into computer memory. 
The computer 20 processes each digital image, as will 
be described and arranges each image in a karyotype 
format. A gray level display system 37 displays a karyo- 
type image the information for which is supplied by the 45 
computer. A joystick 38 associated with the gray level 
display system is used for positioning a cursor at a loca- 
tion on the face of the display system for the purpose of 
pointing out certain locations or objects in the display 
to the computer. The computer can then be instructed 50 
by the typewriter to correct the object designated by 
the cursor, i.e. correct or erase, etc. 

The hard copy printout of a karyotype image is pro- 
duced in response to the corrected karyotype informa- 
tion received from the computer. This is applied to the 55 
hard copy interface circuit 48. This constitutes a circuit 
for converting the corrected digital karyotype digital 
signals to analog form and the associated timing re- 
quired for enabling the hard copy output device 42, 
wich is essentially a facsimile printer, to print out a 60 
karyotype picture from the analog signals. 

FIG. 2 is a block schematic diagram illustrating the 
circuits used in controlling movements of the motorized 
stage of the microscope. The stage is driven in the X, Y 
and Z directions respectively by three motors 50, 52, 65 
and 54. The Z motor is driven in the +Z or —Z direc- 
tion by signals from the computer in response to focus 
drive apparatus 56 in the Spread Detector and Autofo- 
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cus Unit 36 (FIG. 1). Both X and Y motors are driven 
in the -fX or —X directions and 4- Y or — Y directions 
in response to outputs froma -hX Or gate 58, or a —X 
Or gate 60 and a -f- Y Or gate 62, or a —Y Or gate 64. 
The inputs to these Or gates, come either from the 
computer 20, through logic circuits to be described or 
from the joystick pulse generator 66, as determined by 
whether the operation is to be in the manual mode or 
the computer mode. 

In the manual mode, the direction in which the joy- 
stick is moved determines whether pulses are provided 
on a H-X, or a ~X or a -f Y or a — Y line. +X and ~X 
pulses are applied, in response to joystick motion, from 
the joystick oscillator to And gates 68 and 71 respec- 
tively. These And gates are enabled in response to the 
output of a mode flip flop 74. When flip flop 74 is set by 
means of switch 76 to its manual mode, then And gates 
68 through 72 are enabled. The other output of the flip 
flop indicates that the system is in its computer mode. 
Flip flop 74 can be set in its computer mode by means of 
a manual switch 76, or the computer can override the 
switch 76 if a situation arises where computer operation 
must be maintained. 

When in the computer mode, the output of flip flop 
74 enables an And gate 78 to transfer pulses received 
from a pulse generator 81, within the computer 20, to 
another And gate 80, and also to four And gates 82, 84, 
86 and 88 whose outputs respectively provide pulse 
inputs to the Or gates 58, 60, 62 and 64. 

And gates 82 and 84 are three input And gates. One of 
the inputs required to enable And gate 82 is the output 
of an X direction flip flop 90. The computer determines 
which direction the stage is to move, when the system 
is in the computer mode,and for one direction sets flip 
flop 90 with its 4-X output whereby And gate 82 re- 
ceives one of its two required enabling inputs. The 
computer sets the flip flop with its —X output high for 
the opposite direction, whereby And gate 84 receives 
one of its two required enabling inputs. Similarly a Y 
direction flip flop 92 is provided which for one direc- 
tion is set with its +Y output high thereby providing 
one of the two enabling inputs required by And gate 86, 
and for the opposite direction its — Y output is high 
whereby And gate 88 receives one of two required 
enabling inputs. 

The second required enabling input to And gates 82 
and 84 is provided by an inverter 94, which is driven by 
the output of a zero detector 96, The zero detector 
senses when an X motor drive register 98 has reached 
zero at which time it supplies an output to the inverter 
94 whereby And gates 82 and 84 are disenabled. 

A similar function is provided by a Y motor drive 
register 100. When it reaches zero, this is sensed by a 
zero detector 102. The zero detector output drives an 
inverter whereby And gates 86 and 88, which are other- 
wise enabled becomes disenabled. 

The absolute X position of the microscope stage 12 is 
maintained by an X cumulative position register 106, 
which can provide this information to the computer. 
The X cumulative position register is a reversible 
counter which can receive -hX and —X pulses which 
are applied to the X motor 50, whereby the X cumula- 
tive position register is driven to retain the exact X 
position of the microscope stage. The computer gener- 
ates an X coordinate number representing the location 
to which it desires the microscope stage to move in the 
X direction. This number is subtracted from the number 
in the X cumulative position register. The difference 
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represents the distance along the X axis, the microscope 
stage must move and also represents the number of 
pulses required to complete such a move. This number 
is entered into the X motor drive register 98 by the 
computer. The pulse generator 81 is then instructed to 3 
commence supplying pulses, and if And gate 78 is en- 
abled, as it should be in the computer mode, then these 
pulses are applied through And gate 80 to the X motor 
drive register, causing it to count down towards zero. 
These pulses from the pulse generator 81 are also ap- 
plied to all of the And gates 82, through 86. 

Since the motor drive register is in its non-zero state, 
until it has counted down to zero, the one of the two X 
And gates 82, 84 which is enabled by the X direction 
flip flop 90 will be able to apply pulses to the X motor 
causing it to drive the microscope stage. When the X 
.motor drive register reaches zero, this is detected, and 
the And gate which has been applying pulses to the X 
motor is disenabled. 

The circuitry for driving the Y motor in the com- 
puter mode is the same as the circuitry used for driving 
the X motor in the computer mode. A Y cumulative 
position mode register 107 retains the absolute Y posi- 
tion of the microscope stage 12. It is driven in response 
to the same pulses which are applied to the -f Y and — Y ^ 
inputs to the Y motor 52. This cumulative position is 
supplied to the computer which determines the location 
along the Y axis to which it desires the microscope stage 
to move. This is subtracted from the Y cumulative posi- 
tion information and the difference is applied to the Y 
motor drive register by the computer. Pulses from the 
pulse generator 81 are applied to an And gate 110, 
which is enabled when the Y motor drive register is not 
in its zero position. These pulses start to drive the Y 35 
motor drive register and are also applied to the -h Y and 
— Y And gates 62 and 64. The one of these two which 
is enabled is determined by the output of the Y flip flop 
92. 

Accordingly, the Y motor is driven until it reaches 40 
the position determined by the computer at which time 
the Y motor drive register will be at zero. This is de- 
tected by the zero detector with the consequent in- 
verter output 104 disenabling the one of the two And 
gates which was enabled by the Y flip flop 92. Also, no 45 
further pulses are applied to the Y motor drive register. 

Both the X and Y cumulative position register out- 
puts are applied to an X and Y display 112 to be visually 
displayed. The display comprises apparatus which con- 
verts the digital information in the X and Y cumulative 50 
position registers into visual information. 

FIG. 3 is a flow chart exemplifying the search mode 
of operation. When the computer starts a search the 
circuitry shown in FIG. 2 is instructed to move a prede- 
termined amount in the X direction. In the embodiment 55 
of the invention which was constructed, each step of 
motion in either X or Y direction is 10 microns, how- 
ever each move instruction from the computer in either 
the X or the Y direction is a 160 micron move. The field 
of view is 200 microns square, and a cell containing 60 
chromosomes is on the order of 80 microns in diameter. 
Accordingly, the instruction by the computer to the 
circuitry shown in FIG. 2 is to move the stage 160 
microns in the X direction and then to institute a delay 
in order to focus and to permit the spread detector to 65 
determine if a spread is present in the field of view. If 
there is a spread the X-Y coordinates of that location 
are stored by the computer. 
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Next, a test is made to see if a limit of X travel which 
is the end of the X line has been reached. If it has not 
been reached, then the computer issues an instruction to 
move the next 160 microns in the X direction. If the end 
of the X line has been reached then a Y move instruc- 
tion is issued. At the time of issuing the Y move instruc- 
tion a test is made to see whether or not a limit of Y 
travel has been reached. If it has been reached, then the 
search mode is terminated. If it has not been reached, 
then an instruction to change the X direction is issued. 
The computer then moves in the Y direction and 
changes the X direction of motion by applying a signal 
to drive the X flip flop 90. Thereafter the microscope 
stage moves until it reaches the end of the new X line 
where the foregoing routine recurs. 

To clarify the foregoing, in the search mode the mi- 
croscope stage is moved from the beginning to the end 
of one line. It is then instructed to move in the Y direc- 
tion to the end of the adjacent line, and then instructed 
to move in the X direction back to the beginning of that 
adjacent line. At the beginning of that adjacent line the 
microscope stage is moved again in the Y direction one 
line and then starts again in the X direction towards the 
end of the line to which it has been moved. The micro- 
scope slide is scanned in this manner from top to bottom 
over the entire area to be searched. 

Automatic focusing is carried out each time a chro- 
mosome spread is detected. 

The television camera 30 scans a spread seen through 
the microscope and displays this on a monitor 32. The 
spread may also be viewed through the microscope 
viewing lens 28. Thus, during the editing mode, the 
operator can use either or both means for editing. 

After the editing mode, the system goes into its scan- 
ning mode. It sequences the microscope stage to the 
locations of the chromosome spreads which have been 
accepted, automatically focuses the image, and digitizes 
the spread image into a scan data set (SDS). The digiti- 
zation is accomplished by the television camera 30 and 
the image digitizing system 36. This equipment is com- 
mercially available and, by way of example, in an em- 
bodiment of the invention which was built, this equip- 
ment, called the model 108 Computer Eye, was fur- 
nished by a company called SpatiaJ Data Systems, Inc. 
The camera scanned the image at the standard televi- 
sion rate (525 lines, 60 frames per second, interlace 2:1) 
and produced a video signal which was monitored on 
the television display. The brightness value in the scan 
picture is sampled at each point of a 512 by 480 grid and 
converted to a 7-bit binary number. Points anywhere in 
the picture may be selected on the program control, or 
the digitization can proceed through all points in se- 
quence. A cursor is displayed on the monitor to show 
the points to be digitized. 

As soon as the computer detects the presence of a 
spread image in one of the scan data sets provided by 
the image digitizing apparatus, it enters into its analysis 
mode. If the spread image is not to be karyotyped, the 
chromosomes are located, counted and displayed to the 
operator for verification. However, if the cell is to be 
karyotyped, a sequence of programs are executed to 
effect the karyotype analysis of the cell. These pro- 
grams locate the chromosomes in a cell, orient them, 
extract measurements, classify the chromosomes and 
compose the digital karyotype. After the chromosomes 
have been isolated, they are displayed on the gray level 
display device 37 along with sequence numbers to allow 
the operator to correct cases of chromosome touching 
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and fragmentation. The karyotype is also displayed to 
allow the operator to verify correct classification. After 
the karyotype has been approved by the operator, it is 
formatted for output, combined with the spread image 
and copied into one of the output data sets. The analysis 5 
phase processes cell images one at a time from a raw 
spread image to digital karyotype. 

FIG. 4 represents a flow chart illustrating the steps in 
the analysis phase of operation which have just been 
described. SDS stands for scan data set. Each chromo- 10 
some is tagged with a number. Where operator inter- 
vention is required, in the case of the spread interaction 
or karyotype interaction, where bre^ ups are to be 
fixed or chromosomes are touching, or other problems. 
The operator moves the interactive Joystick to the loca- 15 
tion of a picture element which required correction. 
The operator then, by means of the typewriter 27, types 
an instruction to the computer in response to which the 
computer performs the required operation. 

The gray level display system presents a picture of 20 
the chromosome spread which has been organized into 
the standard karyotype format for ease of diagnosis. 
Similar pairs of autosomes are collected and numbered 
with homologous pairs being numbered from 1-22 and 
similar pairs being collected into groups lettered A 25 
through G based on similar morphology. 

The gray level display device is a 1029 line television 
monitor driven by a scan converter called a Hughes 639 
scan converter. Tliis is provided by the Hughes Aircraft 
Co. with instructions for its use and its operation. 30 

Hard copy printout is achieved by converting the 
digital elements into analog signals by the circuits 40, 
which are applied to the hard copy output device. This 
comprises essentially a facsimile recorder. 

There has accordingly been shown and described 35 
above, a novel and useful system for scanning chromo- 
some spreads detecting those spreads; editing the de- 
tected spreads. Thereafter digitizing the spread images, 
analyzing, classifying and placing a spread in a karyo- 
type format. This format is displayed on a gray scale 40 
display for final correction. Then a hard copy printout 
of the corrected karyotype image is provided. 

The Appendix that follows provides a specific de- 
scription of the computer programs as well as a copy of 
the program, in the FORTRAN language, used on a 45 
DEC PDP-11 computer for performing the operations 
described. The computer is made by Digital Equipment 
Corporation, One Iran Way, Marlborough, Mass. This 
is to be considered as exemplary and not as limiting. The 
program can be translated for use on other types of 50 
general purpose computers, made by other manufactur- 
ers by those skilled in the art. 

The chromosome indentification technique, that is a 
general description of a method of chromosome identi- 
fication which was implemented by the programming is 55 
described in a volume entitled Chromosome Identifica- 
tion edited by Torbjom, Casperson and Lore ^ch, 
which is a publication of Proceedings of the Twenty- 
Third a Noble Symposia published by the Academic 
Press in 1973. Tlie chromosome an^ysis procedure 60 
which was implemented by the programming is gener- 
ally described in Perspectives in Genetics, edited by S. W. 
Wright et al., and published in 1972, by Charles C. 
Thomas. 

APPENDIX “ 

The computer has a core memory and the software 
fits into 64K bytes of core memory. It also has three disk 
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drives each of which has two 2.5 million byte disk car- 
tridges. The core memory is partitioned so that it can 
simultaneously perform three tasks; slide search, chro- 
mosome spread analysis on a recorded digital picture of 
a chromosome spread; and pictorial output generation 
of an analyzed chromosome spread. All software runs 
under a disk operating system monitor supplied by the 
manufacturer, as well as maintenance and interactive 
statistical analysis. Automatic keryotyping nms under a 
specially written supervisor (CALMS). 

CALMS 

Purpose: Clinical ALMS supervisor - Controls slide 
search, scanning, analysis and hardcopy output of 
karyotypes or coimts. 

The CALMS supervisor controls the three “parti- 
tions,” search, analysis, and hardcopy. 

The supervisor occupies core from 30000 to 37777 
and includes the hardcopy driver. The search partition 
is permanently resident at locations 40000 to 46777. 
System subroutines are permanently resident at loca- 
tions 47000 to 57777. 

Scan and analysis consist of 20 phases that residue on 
disk in core-image format. One phase at a time is loaded 
into locations 60000 to 156777 and called by the super- 
visor. (Locations 157000 to 157775 may be used for 
COMMON storage.) 

Each analysis phase has a unique identifying number, 
from 1-20. Scan is phase 1, binary is phase 2, etc. The 
data set CALMS.OVR is used to store the phases. Each 
phase required 63 blocks. Program OVB is used to store 
a phase in CALMS.OVR after it has been linked with a 
bottom switch of 60000. 

The following batch stream builds scan (phase 1): 
$JOB [2,2] 

$R LINK 

#DK5:PHASE/CO,LP:/SH <CALMS,STB,- 
SCAN,EXIT,FTNLIB/B:60000/E 
$R OVB 
♦1 
$FI 

Similar batch streams build the other phases. 

An Analysis phase is loaded into core and then called 
as if it were a subroutine. The disk unit, file name and 
extension of the current scan data set are passed as 
parameters. The phase must return to the CALMS 
supervisor when it is finished. This can be done with a 
return statement in a subroutine or a call to the CALMS 
EXIT subroutine from a main program. 

The following symbols are used to define the scan 
and hardcopy data sets. 

NSDS = 3 # of scan data sets 
NHDS = 2 # of hardcopy data sets 
SDU = 5 scan disk unit (DK5:) 

HDU = 3 hardcopy disk unit (DK3:) 

The scan data sets are named S1,S2,S3. The hardcopy 
data sets are named H1,H2. They are stored under UlC 
[2,2]. Allocation of data sets is done by: 

NFSDS: .WORD .-. # full scan data sets (F) 

SDS: BLKB NSDS if NFSDS contains F (F>0) the 
first F bytes contain the data set numbers (1 = SI, 
2=S2, etc) ordered by time of scan. 

HDS: .BLKB NHDS each byte gives the status of a 
particular data set: 

0 = available 

1 — in use by mask 

— 1 = full (ready for hardcopy output) 



4 . 122.518 


9 

When CALMS calls the MASK phase, it gives the 
current hardcopy data set as a parameter, instead of the 
current scan data set. When MASK returns, CALMS 
calls HCOPY, unless it is already operating. Whenever 
HCOPY finishes, it checks to see if another hardcopy 
data set is full, and if so, it starts to process it. 

HCOPY and SEARCH are interrupt-driven and 
must not call any non-reentrant DOS routines, because 
the routine they call might be the one that was bter- 
rupted. 

OPEN results in a call to the .INIT routine which is 
not re-entrant because it gets buffer space for a DDB. 
Therefore, HCOPY and SEARCH cannot call OPEN. 

CALMS initially opens all the hardcopy data sets to 
find their start block numbers and saves them in the 
HSBN table. 

The CALMS supervisor flow chart illustrates its 
operation. The ‘idle loop* starts at SIO and the program 
will cycle until a spread can be scanned or analyzed, or 
a special request 1^ been made (See Flow Chart 1). 


10 

After a spread is scanned, the program INTI is 
called. If the operator only wants to do a count, the 
spread will not be placed in the analysis queue, and the 
counting and masl^g are done at this time. 

5 If the spread is to be karyotyped, it will be added to 
the analysis queue, but if more spreads are to be scanned 
(and scan data sets are available), they will be scanned 
before analysis begins. When all spreads on a slide have 
been scanned, a new slide can be searched while spreads 
from the previous slide are karyotyped. 

Flow Chart 2 details the flow of data through the 
various program and data sets during the karyotyping 
process. 

15 The analysis loop begins at S75, and CALMS stays in 
this loop until the MASK phase is called (or a restart or 
abort is requested). 

After MASK is called, CALMS starts the hard copy 
partition (unless it is already running), and returns to the 

20 “idle loop,” 


rsTSCAN = * Of SPREADS IN SCAN QUEUE 

NFSDS - ' OF scanned SPREADS IN ANAIYSIS QUEUE 



j UNARY ^ j fNSCAK ^ 


fUtJ I 
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FLOW CHART 2 CALMS Data Flow 


SEARCH 

Purpose: Slide search edit, and focus. SEARCH par- 
tition of CALMS 

SEARCH controls the microscope stage and handles 
the interrupts from the special-function keyboard and 
spread/focus data ready. Initially, CALMS calls 
SEARCH to set up some of the interrupts. Thereafter, 
SEARCH is interrupt-driven. 

The operator presses SEARCH start on the special- 
function keyboard to start a search. Patient ID, sex, 
slide ID, and source are entered from the typewriter, 
before the SEARCH actually starts. The SEARCH 
pattern is a boustrophedon. Each step is 160 microns, 
and 60 horizontal steps are taken, before a vertical step 
is taken. Thus, the slide is searched in rows. 

SEARCH is entered via the spread/focus data ready 
interrupt, after each step. If the “spread’' bit is on, the X 
and Y values are saved in the spread queue, SPQ. 
SEARCH will perform an auto-focus whenever 15 
steps have elapsed since the last auto-focus, and there is 
something to focus on. 

The operator can manually halt the search with the 
SEARCH halt key. He can then move to another area 
of the slide and resume the search by pressing 
SEARCH resume. SEARCH disables the spread/focus 
data ready interrupt when it receives a SEARCH hit 
interrupt, and re-enables it for SEARCH resume. 

The SEARCH is terminated when 300 spreads have 
been found, or when the operator presses the edit-start 
key. 

Normally, both SEARCH and edit are done at 63X, 
and there is only one edit. (There is also an option to 
search at 40X and do a “low-magnification” edit at 40X, 
followed by a “high magnification” edit at lOOX). 


Edit moves the stage to each spread location saved in 
the spread queue and initiates an auto-focus sequence. 
The operator can reject the spread before the auto- 
focus sequence finishes, and edit will immediately move 
40 to the next spread in the queue. If the auto-focus se- 
quence finishes, edit turns on the operator action light 
and waits for the operator to press “accept,” “reject,” 
“next” or “last.” 

The operator normally centers the spreads he wishes 
45 to accept. When the accept key is pressed, edit saves the 
X and Y values in the same place in the queue and flags 
them by setting them negative. It also increments the 
rating for the spread by one each time the accept key is 
pressed. The ratings are stored in a byte table named 
50 SPR. 

When the reject key is pressed, spread rating is ze- 
roed and the X and Y values are made positive. The 
stage is then moved to the next spread. 

The next key causes edit to move to the next spread 
55 without altering the accept-reject state. 

The last key causes edit to move to the previous 
spread. 

The edit finishes when the end of the queue is 
reached, or when the operator presses edit-end. The 
60 queue is then sorted according to rating. The highest 
rated spread is moved to the start of the queue, and the 
stage is moved to this spread in preparation for the first 
scan. At this point, the queue and other critical informa- 
tion is saved, by calling WPARAM for phase one. This 
65 allows a scan restart at a later time. 

GNSTS is the entry point for the “get next spread to 
scan” subroutine. It initiates a motor move and auto- 
focus on the next spread in the scan queue. CSPQ con- 
tains the current location. It also enables a spiral search, 
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if search start is pressed. The spiral search is useful in 
locating a spread close to known coordinates. It takes 
steps of 50 microns in a spiral pattern and focuses when 
there is something to focus on. The operator can halt it 
or resume it with the search halt and resume keys. 

The focus routine can be entered via the focus key 
interrupt, or it can be called as a subroutine via a simu- 
lated interrupt. It operates by initiating focus motor 
moves and executing an RTI instruction, after setting 
up the spread/focus data ready interrupt. When the 10 
move is completed, it is reentered and compares the 
new focus value with the old one to see what the next 
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onto a disk. The picture is scanned by columns, with 
alternating even and odd TV fields, to achieve the mini- 
mum scan time of 17 seconds. Each column is assembled 
in core and output as a line on disk and on the gray 
5 scale. The coils on the SDS monitor have been rotated 
so that the orientation is the same as on the gray scale 
monitor. 

Sector histograms are accumulated as the picture is 
scanned, and sector thresholds are calculated at the end 
of each row of sectors. The thresholds are typed out if 
SWl is up. The thresholds are written after the last 
picture line. 


move should be. Each lens has an initial and final step 
based on its magnification. The step size is decreased 
until the final step size is reached. The focus flow chart 
illustrates the algorithm. 

(See Flow Chart 3). 


SCAN sets priority 6 during the pixel digitization 
15 loop to prevent interrupts from other devices which 
would cause it to lose “sync.” Hardcopy interrupts 
(which are at priority 7) are the only ones allowed, due 



FLOW CHART 3 Focus 


SCAN 

Purpose: To scan a picture onto disk, display it on the 
gray scale, and calculate sector thresholds. 

SCAN uses the SDS data camera to scan a picture 


to their critical nature. When the hardcopy is running, 
the SCAN takes several seconds longer. 

SCAN converts pixel values of 0 to 1, and values of 
127 to 126. This allows cut and join lines to be differen- 
tiated from normal data values. 
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SCAN stores the source code, patient ID and sex, 
slide ID, X and Y values, date and time of scan into the 
label of the output data set. 

The operator may enter additional information as the 
SCAN ID. 5 

BINARY 

Purpose: To segment the chromosomes and generate 
an edge file containing the end point coordinates for 
each segmented chromosome, 10 

BINARY will read in a scanned spread and assemble 
a reduced core image of binary sample points. Each 
sample point is obtained by averaging a 2 X2 pixel area. 

If this average is above the sector threshold, then the 
sample point is recorded as a 1-bit, Otherwise, a zero bit 15 
is recorded. Thus a digitized spread of 500x480 pixels 
is reduced to a 250X240 grid of sample points. The 
resulting binary image is surrounded with zero bits to 
provide a physical boundary to keep the perimeter 
walker used in the segmentation algorithm from wan- 20 
dering off the edge of the picture. The binary reduction 
is accomplished through multiple calls to the subrou- 
tines QTHR or STHR. 

After the binary image has been completely assem- 
bled in core, it is scanned line-by-line for chromosomes 25 
(1-bits). Each chromosome, is “segmented” by record- 
ing its starting and ending coordinates on each scan line. 
Provision also exists for multiple segments to occur on 
any given line. (See Flow Chart 5) 

The segmentation algorithm is implemented in the 50 
subroutine SEGMENT, which scans the binary image 
line-by-line for chromosomes. The search is performed 
by ROACH, which scans each line from left to right, 
stopping only when it encounters a chromosome. The 
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starting bit location of any chromosome found is re- 
corded and control is transferred to the subroutine 
TURTLE. TURTLE will walk counterclockwise 
around the perimeter of the chromosome, recording the 
segment end. point coordinates as it proceeds. Since the 
coordinates are recorded in the order they are encoun- 
tered along the perimeter, they must be rearranged so 
that they correspond to starting and ending segment 
coordinates. This is accomplished by sorting the coordi- 
nates with the integer sort routine SORTIN. 

After a chromosome has been completely segmented, 
it must be removed from the image in order to prevent 
ROACH from re-encountering it while scanning the 
next line. The subroutine ERASE will use the segment 
coordinates to erase (set all 1-bits to zero) the chromo- 
some from the image. 

At this point, chromosomes may be accepted or re- 
jected on the basis of length, width, area and perimeter 
measurements. All chromosomes thus accepted are 
recorded in an edge file, (see Flow Chart 5), in a format 
suitable for input to the phase SKIRT, 

PARAMETERS: All parameters are optional and 
may appear in any order except where specified. 

AREA followed by two integers representing the 
minimum and maximum allowable cross sectional 
areas. 

EP followed by two integers representing the mini- 
mum and maximum number of perimeter points 
allowable. 

LENGTH followed by two integers representing the 
minimum and maximum allowable length. 

SKIRT followed by an integer representing the 
width of the skirt (in pixels) to be added to aU the 
chromosomes during the SKIRT phase. 



BINARY REDUCTION ADD SKIRTS TO 

AND SEGMENTATION SEGMENT END 

OF CHROMOSOMES POINTS 


GATHER CHROMOSOME RETHRESHOLD AND 

GREY LEVELS FROM SEGMENT OBJECTS 

SCANNED SPREAD 


FLOW CHART 4 


CALMS Segmentation Sequence 
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SHAL PARAMS 

1 


DIRECTORY 
{65 OBJECTS/RECORO) 



OBJECT 


1 

OBJECT ^2 

OBJECT ^3 







INTEGER DIft (3)2) 


FBWj 


YMIN| 

XMIN^ 

YMAXj 

XMAX^ 

FBW^ 


YMIN^ 

XMlNj 

YMAX^ 

XMAXj 

FBWj 

^3 

YMIN^ 

XMIN^ 

YMAX^ 

XMAX^ 








INTEGER EDGE (512) 



"l1 

Y^ 

^2 


^21 

^2 

^22 

^3 

^31 

^3 

^32 










■UP TO 128 
SEGMENTS/RECORD 


F8.V - FIRST RECORD FOR 08JECf 
N - NUMBER OF END POINTS 


(XMIN,YM1N) 



FLOW CHAKT 5 File Forinat 


SKIRT 

Purpose; To increase the cross sectional area of each 
segmented chromosome by recomputing the segment 
end points and storing the results in a segment file suit- 
able for input to the CHROME phase. 

SKIRT wDl increase the area of each chromosome by 
extending its boundary outward a uniform distance in 
all directions. (Flow Chart 6.) Each chromosome is thus 
skirted with marginal elements to prevent loss of data 
when the boundaries are recompute during the rethre- 65 
sholding step (ROB phase). SKIRT requires an edge file 
as input and generates a segment file. (See Flow Chart 
7). 


The width of the skirt is controlled by the parameter 
B (number of boundary samples), which is introduced in 
the BINARY phase. The chromosomes are enlarged by 
recomputing the segment end points, adding new seg- 
ments where necessary and merging segments that have 
grown together. The segment end points are stored in 
the segment file as triplets (line coordinate and starting 
and ending sample coordinates). 

The background gray levels and thresholds for each 
chromosome are computed by estimating its center of 
mass and interpolating over the values for the four 
nearest sectors. 


60 
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CHROME 

Purpose: To gather the gray values of the segmented 
chromosome from the scanned spread and to store them 
in a chrome file. 5 

CHROME requires as input a scanned spread and its 
corresponding segment file. Using the segment end 
point coordinates, CHROME gathers the gray values 
for each chromosome and stores them in a chrome file 
in a format suitable for input to the ROB phase (Flow lo 
Chart 8). 

In order to avoid re-reading scan lines, chromosomes 
which appear on the same line are processed concur- 
rently. For this reason, the gray values are stored in an 
intermediate buffer (CBUF) until an entire chromosome is 
has been processed or the buffer becomes full. When all 
the gray values for a chromosome have been gathered 
in CBUF, the gray values and their associated segment 
end point coordinates are assembled in one or more 
chromosome records (see Flow Chart 8) and written 20 
onto the chrome file. This task is performed by the 
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subroutine WBUF. If the intermediate buffer becomes 
full, the chromosome occupying the most space in the 
buffer will be assembled and written out with a call to 
WBUF. 

The intermediate buffer is partitioned into sections of 
a fixed size and formatted into a list structure to facili- 
tate the allocation and release of buffer areas. The first 
word of each section contains the buffer index of the 
next section in the list (=0 for the last section in the list). 
The remaining words in each section is used to store 
gray level information. 

Initially, all the sections are formatted into a single 
list representing all available sections. The next free 
section index (NFSI) points to the beginning of this list, 
and is updated whenever sections are removed from or 
added to the front of the list. 

When sections are allocated to a chromosome, in- 
dexes pointing to the first and last sections of the chro- 
mosome list (FSI and LSI) are maintained in a chromo- 
some directory. 


512 WORDS 







SLO, SSO, NLO, NSO, NOB, B, DPER 





ROB DIRECTORY 

1 INTEGER LBW (80) 

LAST BLOCK WRITTEN 


L, 

L^ 

L- 



1 

2 

L 3 


CHROMOSOME 

RECORDS 

L. = 

NUMBER OF THE LAST RECORD 
WRITTEN FOR CHROMOSOME i 


EACH CHROMOSOME RECORD HAS THE FOLLOWING FORMAT: 


PBW 

NSEG 




2N, SAMPLES 

2N, SAMPLES 

Y. 





L_lJ 

1 

1 

i 

1 

2 

2 

2 


2N^ SAMPLES 


2N^ SAMPLES 


WORD 

1 NUMBER OF THE PREVIOUS RECORD WRITTEN FOR THE CHROMOSOME 

(=0 FOR THE FIRST RECORD OF EACH CHROMOSOME) 


2 

3 AND 4 

5 

6 TO 4Nj+5 
4Nj+6 TO ... 


NUMBER OF SEGMENTS IN THIS RECORD 

LINE AND SAMPLE COORDINATES FOR FIRST SEGMENT 

NUMBER OF SAMPLE POINTS FOR FIRST SEGMENT (N^) 

GREY LEVELS FOR FIRST SEGMENT. SINCE EACH SAMPLE POINT 
REPRESENTS A 2 X 2 PIXEL AREA, 4N^ PIXELS ARE STORED, OR 
2N^ PIXELS EACH FROM TWO CONSECUTIVE LINES. 

SIMILAR INFORMATION FOR THE SECOND SEGMENT 


FLOW ":hart 8 


Chrome File Format; 
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ROB 

Purpose: To rethreshold and resegment the chromo- 
somes and to store them in a chromosome file. 

ROB requires as input a chrome file containing seg- 
ment end point coordinates and gray level information 
for each chromosome. Each chromosome is reassem- 
bled in core and its histogram is generated. Based on its 
histogram, a new threshold is computed for the chro- 
mosome. Using this new threshold, the chromosomes 
are resegmented by applying algorithms very similar to 
those used in the BINARY phase, except that the algo- 
rithms are applied on the gray values themselves rather 
than on a binary reduction. 

The segmentation process begins with a line by line 
scan for pixels above the computed threshold. This task 
is performed by the subroutine ISEG, which records 
the location of any objects that it finds. The task of 
tracking the perimeter of the object is performed by the 
subroutine SOT (Son of Turtle), which records the 
segment end point coordinates as it walks around the 
object on a counterclockwise direction. The coordi- 
nates are sorted to correspond to segment end points by 
the subroutine SORTIN. 

The segments are examined for pixels lying within the 
original boundary for the chromosome established in 
the BINARY phase. If this search fails (i.e., if the object 
lies completely in the skirt), the object is rejected. This 
is necessary to prevent fragments of neighboring chro- 
mosomes from being included in the chromosome file. 

The object is then assembled into one or more chro- 
mosome records and the space it occupied in core is 
zeroed out. The task of moving the object is performed 
by the subroutine REMOVE, which may optionally 
contrast stretch the gray values for maximal display. 
The object may be rejected at this point based on area 
measurements. The assembled chromosome records are 
written onto the chromosome file and the object en- 
tered into a chromosome directory. 

The first record of the chromosome file contains the 
following: 

WORD 

l Number of chromosomes (maximum of 60) 

2-241 Chromosome directory containing the following four 
numbers for each chromosome: 

FBW = First chromosome record written 
YMIN = Minimum line coordinate 
XMIN = Minimum sample coordinate 
LBW = Last chromosome record written 

242- 

302 Thresholds used for each chromosome 

The second record contains the following: 


WORD 

1-60 Line coordinate of an internal point for each 

chromosome 

61-120 Sample coordinate of an internal point 

121-180 Perimeter measure for each chromosome 


The remainder of the file is composed of one or more 
contiguous chromosomes records for each chromo- 
some. Each such record will contain the following: 


WORD 

1 Number of segments in this records 

2 Line coordinate for first segment 

3 Sample coordinate for first segment 

4 Number of samples (N) in segment 
5 to N + 4 N Gray levels for this segment 

N 4- 5 Line coordinate for second segment 
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NOB 

Purpose: To number the objects found by SEG- 
MENT or ROB and display the picture on the gray 
5 scale. 

NOB reads 122 words of parameters into NK, 
LT(60), ST(60), and FI. If FI is zero, NOB does not 
display the picture on the gray scale, and calls 
APHASE (MASKPH). 

NK is the number of chromosomes and LT and ST 
are the lines and samples where the numbers are to be 
placed. 

NOB reads one line at a time and adds any numbers 
required on that line. If LT is in order, NOB runs a little 
faster since it doesn’t have to search the entire table for 
each line. 


INTI 

Purpose: To correct errors in object isolation. 

INTI is called immediately after each spread is 
scanned. The operator normally requests a quick count 
at this time. If the spread is only to be used for a count, 
the operator can correct for missing or extra objects and 
finish it. 

If the spread is to be karyotyped, cuts, joins, and 
threshold changes are needed to correct for errors in 
object isolation. After the objects have been isolated, 
3 Q INTI is called again to check for any remaining errors. 

INTI communicates with CALMS by calling 
APHASE. It writes parameters to BINARY to indicate 
a quick count, and to NOB to tell it to call MASK and 
not display the picture when finishing up a count. 

35 

MOB 

Purpose: To orient and measure the chromosomes. 

MOB orients each input object, accumulates lOD, 
^ area and length and calculates centromeric index by 
length, lOD and area. The unrotated chromosome file 
(UCR) is MOB’S input (which is ROB’s output) and the 
rotated chromosome file (RCR) is MOB’s output. The 
format of RCR is as follows: 

45 


Rec, 1: 


50 


Rec, 2 : 
Rec. 3: 
Rec 4-7: 
Rec 8 & 


Word (1) = # of input objects (integer) 

Word (2,3) = Spread lOD (real) 

Word (4,5) = Spread length (real) 

Word (6,7) = Spread area (real) 

Word (8) ~ Next available record in RCR (integer) 

Word (9) # of chromosomes 

Words (i6-465) = Chromosome directory 

Words (16-465) = Chromosome directory 

Reserved for CLASFY results 

Reserver for BANDS results 

following records: 

Rotated chromosome images 


The chromosome directory (Rec 1 and Rec 2) has the 
following format: 


Integer CHDIR (15, 60) 

CHDIR (1,1) - CHDIR (15,30) on Rec I 
CHDIR (1,31) - CHDIR (15,60) on Rec 2 


Each entry is as follows: 
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CHDIR 

(U) 

= 1st Rec. # of Ith routed image, 



or zero if rejected 

CHDIR 

(2.1) 

= # of lines in image 

CHDIR 

(3.1) 

= # of samples in image 

CHDIR 

(4.1) 

— Length of chromosome 

CHDIR 

(5.1) 

= IOD/8 of chromosome 

CHDIR 

(6.1) 

= Centromeric Index by Length 

CHDIR 

(7.1) 

= Centromeric Index by Density 

CHDIR 

(8.1) 

= Centromeric Index by Area 

CHDIR 

(9.1) 

= Centromere line 

CHDIR 

(10,1) 

= Perimeter of chromosome 

CHDIR 

(H.I) 

= Area 

CHDIR 

(12,1) 

PVArea 

CHDIR 

(13,1) 

= Centromere Location Method 

CHDIR 

(14,1) 

- Available for expansion 

CHDIR 

(15,1) 

~ Available for expansion 


MOB will reject objects if they are too large or too 
small. The maximum allowable size before rotation is 88 
X 88. The maximum allowable size after rotation is 88 
X 48. The maximum area is 2000 points, and minimum 
area is 30 points. The minimum length and width are 5 
lines and 5 samples. When an object is rejected, its area, 
length, and width are typed. 

Originally, MOB had an option to use a skeleton 
method in locating centromeres. However, this method 
took 25 sec. longer with little or no improvement in 
centromere accuracy. This option was removed in 
order to save core space and allow a larger maximum 
chromosome size. 

CLASPnf 

Purpose: To classify the rotated chromosomes into 10 
groups (conventional classifier). 

CLASFY reads in the chromosome directory pro- 
duced by MOB and classifies each object. Once classifi- 35 
cation is complete, CLASFY writes the classification 
tables into RCR, record 3. The format is: 


Word (1) 

Word (2) 

Word (3-12) 
Words (13-102) 
Words (103-108) 
Words (109-199) 
Words (200-204) 
Words (205-294) 


# of samples in karyogram 
No object # flag 
Group ID’s 
Slot ID'S 

Initial slot for each row 
Object found in each slot 
Center line table for each row 
Center sample for each slot 


This table is then used by KTYPE to build the output 
karyogram. 

Classification is based on an internal table that gives 
the minimum and maximum allowable centromeric in- 
dexes for each length, for each of the ten groups of 
chromosomes. The table is called CT and is dimen- 
sioned (20, 51). The twenty entries for each length are 
minimum and maximum Cl for A-1, A-2, A-3, B, C+X, 

D, E-16, E-17 and E-18, F and G+Y. ” 

First, an initial classification is made. Then, moves are 
made from **heavy” groups to “light"’ groups. When 
there are several candidates for a move, the one with 
“maximum likelihood” is chosen. ^ 

After all possible moves have been made, the chro- 
mosomes within each group are ordered according to 
the slope table which describes the slope of a line that 
sweeps in from the right. Most groups are ordered by 
size. When the C-hX group has 15 or 16 members, the 65 
third largest or third and fourth largest are placed in the 
X slots. When G-{-Y has five members, the chromo- 
some with the maximum fit factor is placed in the Y slot. 


The classification table can be supplied to CLASFY 
with the OS parameter, followed by the object numbers 
for the slots. In this case, CLASFY sets up the karyo- 
type format but does not do any classifications. 

KTYPE 

Purpose: Builds KARYOGRAM and displays it on 
the gray scale. 

KTYPE utilizes the chromosome directory, the clas- 
sification tables and the rotated images on RCR to build 
the karyogram on KGM. 

IBUF is a 20480 byte buffer that holds one record for 
each object on the current line. Since the record length 
is 1024 bytes, twenty objects can be accommodated. 

KTYPE builds the karyogram one line at a time, 
inserting line segments from IBUF, object numbers, 
centromere marks and slot ID’s at the appropriate time 
in the appropriate place. 


Purpose: Provide operator interaction to fix karyo- 
type errors. 

INT2 is called after the chromosomes have been 
measured, classified, and displayed as a karyotype. The 
operator can correct rotation errors, centromere errors, 
and classification errors. The corrections are normally 
done in the above order, since a rotation error usually 
causes a centromere error and a centromere error usu- 
ally causes a classification error. 

INT2 uses WPARAM to write parameters to MOB 
and CLASFY and uses RPARAM to read them back to 
see what has previously occurred. If the operator cor- 
rects rotation and centromere errors and does not move 
any chromosomes around, INT2 will allow CLASFY 
to reclassify on the basis of the new measurements. 
After the operator starts making moves, INT2 tells 
CLASFY what the karyotype should look like and does 
not allow an automatic reclassification. 

RESEL 

Purpose: Save information on measured chromo- 
somes. 

RESEL uses the MOB output to rearrange the mea- 
surements in order of type and store them in KDATA 
(BDATA for banded spreads). It also writes the patient 
report line in PD AT A. 

Format oflcDATA; RECLEN = 1024 

Line 1 Directory Record I for Source 1 spreads 
Bytes 

1-2 NEXT 1*2 Line # of next Dir Rec for 

Source I, or 0 

3-4 NUSED 1*2 # of spreads in this Dir 

Rec max is 85 

5-854 PID (850) BYTE 10 byte patient ID for 

each spread, or 0 

855-1024 LINE (85) 1*2 Corresponding data line # 

for each spread 

Line 2 Directory Record 1 for Source 2 spreads 


Line 15 Directory Record 1 for Source 15 spreads 

When “NUSED” becomes 85, next available line # will 
be inserted into NEXT. Then the line in NEXT will be 
the next directory record for this source. 

Line 16-500 Data Records and Directory Records, if 
necessary 
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Bytes 


1-64 


LABEL 1 

65-84 


LABEL 2 

85-104 


LABEL 3 

105-124 


LABEL 4 

125-126 

NC 

1*2 

127-128 

LSUM 

1*2 

129-132 

ISUM 

REAL*4 

133-136 

ASUM 

REAL*4 

137-144 

UNUSED 


145-224 

ON (80) 

BYTE 

225-304 

ONL (80) 

BYTE 

305-384 

ONS (80) 

BYTE 

385-464 

LEN (80) 

BYTE 

465-624 

lOD (80) 

1*2 

625-784 

AREA (80) 

1*2 

785-864 

CIL (80) 

BYTE 

865-944 

CID (80) 

BYTE 

945-1024 

CIA (80) 

BYTE 

Records 2-4 for Banded Data 


1-1632 

OCFOUR(51,8) 

REAL*4 

1633-3060 

OPHI (51,7) 

REAL*4 


(First 64 bytes) source, patient, 
sex, slide, X,Y 
(First 20 bytes) scan time 
(First 20 bytes)scan ID 
(First 20 bytes) diagnosis 

# of chromosomes in the karyotype 
Length sum (not normalized 

for 46) 

lOD sum (not normalized for 46) 
Area sum (not normalized for 46) 

Object for types 1-24, 25-30, 
31-40, or 0 

# lines for each object 

# samples 

Length (adjusted for bend)-un- 
normalized) 

IOD/8 - unnortnahzed 

Area 

CIL 

CID 

CIA 


C for types 1-24,25,26 
PHI for types 1-24, 25, 26 
Negative Source = Banded spread and uses DK4:BDATA[6,6] 


MASK! 

Purpose: To combine two pictures and add a border. 

MASK2 combines the numbered spread and karyo- 
type into a single picture formatted for the hardcopy. 
The output is written on disk, with an option to aiso 
write it on tape if switch 5 is up. 

The picture on disk is written in hardcopy format, 
with four bits for each element, and the picture on tape 
is written with eight bits for each element. Gray scales, 
reference masks and annotation are added to the pic- 
ture. 

MASK2 is also used to combine the numbered spread 
and the raw spread for counts. It checks for the KG 
parameter followed by the disk unit and filename for the 
raw spread. 

MASK2 calls subroutines MSUB, WEDGE, REF, 
and WLINE to do the bulk of the work in creating the 
output picture. 

BAND 

Purpose: To find the waveform and calculate Fourier 
coefficients for banded chromosomes. 

The input to BAND is the rotated chromosome file, 
RCR. For each chromosome, BAND first decides if the 
chromosome is straight or bent. 

For bent chromosomes, BAND curve fits a parabola 
to the boundary points and recalculates the chromo- 
some length. The waveform is determined by sampling 
along the parabola, and using three points perpendicular 
to the slope of the parabola. 

For straight chromosomes, the waveform is deter- 
mined by sampling along each line, using a moving 
window of eight points. The maximum value found 
along the line is used. 

A and B Fourier coefficients are then computed from 
the waveform values for eight harmonics. From these, 
C (Amplitudes) and PHI (Phase Angle) are computed 
and saved in records 4-7 of the rotated chromosome 
file, RCR. Length and centromeric index are passed to 
FOUR as parameters. 

BAND recognizes the following parameters: 

WA: Store a representation of the waveform in place 
of the rotated chromosome images. 

AX: Mark the axis for each chromosome 


QB: Quick BAND — process only the C group. 

FOUR 

Purpose: To classify banded chromosomes using 
Fourier coefficients, length and centromeric index. 

The inputs to FOUR are the classification table of 
means and variances, and the banded chromosome mea- 
surements. FOUR computes the likelihood that each 
chromosome belongs to each of the chromosome types, 
using 14 measurements — length, centromeric index by 
area, C(2) to C(8), and PHI (2) to PHI (6), 

If a chromosome’s length or centromeric index differs 
by more than 6 S.D. for a particular chromosome type, 
that type is ruled out for that chromosome. Similarly, if 
the C sum or PHI sum exceeds 7 S.D. or the total sum 
exceeds 8 S.D., that type is excluded for that chromo- 
some. 

The chromosomes are then classified in order of like- 
lihood, subject to group membership rules. This proce- 
dure may leave some chromosomes unclassified, since 
certain types may have been excluded for certain chro- 
mosomes. 

Using the unclassified chromosomes, the most likely 
classification is found, say chromosome i belongs to 
group J. The chromosomes in group j are then examined 
to see if one of them can be moved to another group 
that is not yet full. If so, the most likely move is made. 

The classification results are written as parameters 
for CLASFY. 

PREP 

Purpose: To print the patient report 

PREP reads the patient report records that were 
written on disk by RESEL, and prints them on the line 
printer. If the parameter PL is used, the records for 
diffemet patients are separated by a double space. Oth- 
erwise, each patient’s report is on a separate page. 

ABNORM 

Purpose: To print information on abnormal chromo- 
somes ABNORM is called only when console switch 10 
is down. It reads the rotated chromosome file, RCR, 
and examines the profile of each chromosome to deter- 
mine centromere information. It then prints a message 
for each chromosome, regarding its normality. 
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KFIX 

Purpose: Syntactical classification within B,D»F, and 
G groups. 

KFIX is the final phase of the hybrid classifier for 5 
banded chromosomes, and operates as follows: 

(1) Take the 4 chromosomes in the G group. Measure 
the position along the length of the chromosome of the 
brightest band. The 2 chromosomes with the bright 
band closest to the center correspond to the G-21 the 10 
other two are the G-22. 

(2) Take the 6 chromosomes in the D group. Measure 
the ratio of average lOD in the upper half of the chro- 
mosome so that of the lower half of the chromosome. 
The two smallest values correspond to the D-13, the 15 
two largest values correspond to the D-15 and the re- 
maining two are the B-14. 

(3) Separate the F-19 and F-20 chromosome by lOD. 

The two chromosomes with the smallest integrated 
optical density are the F-19*s. 20 

(4) Take the B group. Measure the average lOD 
between the centromere position and a distance along 
the long arm equal to the short arm length or to the 
midpoint of the chromosome, whichever is shorter. The 
two chromosomes with the largest value correspond 25 
the B-4. 

MVIO 

Purpose: To read and write contiguous files with 
automatic double buffering, blocking, and random or 30 
sequential access to lines of data. 

The calling sequences for the six entry points are as 
follows: 

CALL OPEN (MVB,BUFSIZ(DBFLAG,- 
MODE,LNAME) 35 

CALL GET (MVB,LINE,INDEX[,NORA]) 

CALL PUT (MVB, LINE, INDEX) 


30 

CALL CLOSE (MVB) 

CALL READ (MVB, LINE, INDEX, LOC) 

CALL WRITE (MVB, LINE, LOC) 

An OPEN call is required before any GET or PUT 
calls can be made to a dataset. The user must provide 
core space large enough to hold all the necessary con- 
trol blocks and control information, as well as the data 
that is to be read or written. This allows MVIO to be 
re-entrant. In addition, no space is wasted on unused 
data sets, as would happen if MVIO contained storage 
for a fixed number of data sets. 

The control information can be considered as a 
“mini-VICAR-block” or MVB. Each MVB is 56 bytes 
long and contains a tran block, link block, filename 
block and the information required by MVIO. (See 
Flow Chart 9) 

The MVB is followed by one or two buffers to hold 
the data that is read or written. Each buffer is a multiple 
of the RKll disk block size (512 bytes). An entire buffer 
is normally read from or written onto the disk with a 
single access. This greatly increases the effective trans- 
fer rate. When two buffers are provided, MVIO allows 
the user to overlap computation with the disk input- 
/output. 

GET and PUT are called to obtain the index relative 
to the start of the MVB for the desired record in the 
data set. Thus the data does not have to be moved from 
one buffer to another. On most “get” calls, the re- 
quested line will already be in one of the buffers and 
MVIO simply returns the index without any physical 
I/O required. 

PUT is called to obtain the index of where to store 
the line that is to be written. MVIO initiates physical 
I/O when a buffer has been completely filled. A “close” 
call is required to write any data left in a buffer by 
earlier “put” calls. 


65 
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MVIO - BLOCKING AND DOUBLE BUFFERING EXAMPLE 



FLOW CHART 9 MVIO - Blocking and Double Buffering Example 


A logical record (or line) can be smaller than, larger 
than, or the same size as the physical block size (512 
bytes). As previously noted, each buffer is a multiple of 
512 bytes in length, but the buffer must also be large ^ 
enou^ to hold a complete logical record. 

MVIO (See Flow Chart 9) is normally used in con- 
junction with the label subroutines GLABEL and 
PLABEL, which are described in more detail else- 
where. They set up some of the fields in the M VB when 
the picture data is preceded by a label. 

The Helds in the calling sequences are defined as 
follows: 

MVB is the location of the MVB for the data set. The ^ 
user must reserve enough core for his buffers immedi- 
ately following the MVB, 

BUFSIZ is the size of each buffer (multiple of 512 
bytes). 

DBFLAG is the flag for double buffering, 0 = no 65 
double buffering (one buffer), 1 = double buffer (two 
buffers). 

MODE is defined as: 


0 = Disk Input 0,1 and 2 are functionally 

1 = Disk Output equivalent 

2 — Disk Up&te 

4 Tape Input 4, and 5 are funcdonally 

3 =:= Tape Output equivalent 


LNAME is a three character logical name for the 
data set that can be used to assign it to a flle with the 
$AS command. (Subroutine AFILE can be used to 
make a default assignment). 

LINE is the desired line number, positive for data 
lines, negative for label records, and zero for the **next” 
line. 

INDEX is the offset in bytes from the start of the 
MVB to the requested line. In Fortran, when MVB is 
defined as a byte array, sample J of the requested line is 
at MVB (J-h INDEX). In Marco, MVB -f- INDEX is the 
location of the first sample of the requested line. 

INDEX is set to zero for an end-of-file read from 
tape. 

NORA is an optional parameter to prevent read- 
ahead. 
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READ and WRITE can be used when RECLEN = 
BUFSIZ and single buffering is specified. A Ime is read 
into LOG, or written from LOG, without any overlap. 

Updating is normally done with a GET and a PUT ^ 
for the record to be updated. (The same index value will 
be returned on the GET and PUT.) This insures that 
other records in the block and other blocks in the buffer 
will not be changed. 

The “get” can be omitted only if all records are “put” 
sequentially, starting with the first record of a block. 

The MVB format is shown below. Word numbers are 
in decimal, starting at 1 and byte numbers are in ocatl, 
starting at 0. TB == tran block, LB = link block, and FB 
B filename block. 
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GLABEL can also be used with an unlabeled data 
set. It will return NL as the # blocks in the data set 
BPL = 512 
BPE = 8 
NLR = 0 

These routines are re-entrant, except when GLA- 
BEL is used with an unlabeled data set. 


EXIT 

Purpose: To replace the FORTRAN exit and error 
subroutines and save 1260 bytes of core. 

EXIT can be used to save core after a FORTRAN 
program has been checked out. ERRA gives a single 


WORD 

BYTE 


CONTENTS 

1 

0 

TB 

Active Block # 

2 

2 

+2 

Active Buffer Address 

3 

4 

+4 

Word Count 

4 

6 

+ 6 

Function/Status 

5 

10 

+8 

Words Not Transferred 

6 

12 

IBN 

Inactive Block # 

7 

14 

IBA 

Inactive Buffer Address 

8 

16 

-2 

Error Return 

9 

20 

LB 

Link Pointer 

10 

22 

+2 

Logical Name 

11 

24 

+ 4 

Unit #! Words To Follow 

12 

26 

+ 6 

Device Name 

13 

30 

CRC 

Current Record # 

14 

32 

-2 

Indicator I Unused 

15 

34 

FB 

File Name (Word 1) 

16 

36 

+ 2 

File Name (Word 2) 

17 

40 

+ 4 

Extension 

18 

42 

+ 6 

UIC 

19 

44 

WNT 

Words Not Transferred 

20 

46 

SBN 

Start Block # 

21 

50 

NBF 

# Blocks In The File 

22 

52 

NLR 

# Label Records 

23 

54 

RECLEN 

Record Length (Multiple or Divisor of BLKSIZ) 

24 

56 

BLKSIZ 

Block Size 

25 

60 

BUFSIZ 

Buffer Size (Multiple of BLKSIZ and RECLEN) 

26 

62 

BPB 

Blocks Per Buffer 

27 

64 

DBF/MD 

Mode ! Double Buffering Flag 

28 

66 

WFLAG 

Write Flag (Last Block # To Be Written + 1) 


LABEL 

Callable Entry Point Names: GLABEL, PLABEL 
Purpose: To obtain and store label information on 
disk data sets. 

These subroutines are used in conjunction with 
MVIO, when processing labeled data sets. They obtain 
or store the label parameters, and also set up the 
BLKSIZ, RECLEN, NLR, and BPB fields in the 
MVB. GLABEL and PLABEL must be called after the 
OPEN call for the MVB. 

CALL GLABEL (MVB, SPAR, INDEX) to get a 
label 

CALL PLABEL (MVB,SPAR, LABEL) to put a 
label 

MVB is the mini- VICAR block for the data set. 
SPAR is a five word table of system parameters 
SPAR (1) = NL, # Lines of picture data 
SPAR (2) = BPL, Bytes per line 
SPAR (3) = BPE, Bits per element 
SPAR (4) = NLR, # of label records 
SPAR (5) = BLKSIZ, Block size 
GLABEL transfers the label information into SPAR. 
PLABEL transfers the data in SPAR to the label. 
Index is the offset from MVB to the first byte of the 
label, as returned by ‘get.’ 

Label is the location of the label to be output. 
Example: 


INTEGER SPAR (5) 

BYTE A (4200), B (4200) 

CALL OPEN (A,2048,l,0,‘MVr) 
CALL OPEN (B,2048,l,l,‘MVr) 
CALL GLABEL (A,SPAR,IA) 
CALL PLABEL (B,SPAR,A(IA+ 1)) 


Open A for input 
Open B for output 
Get label from A 
Put label to B 


error message (A367), instead of the individual mes- 
sages normally given by the FORTRAN error routine 
40 ERRA. 

When EXIT is called, it will either return to DOS via 
a .EXIT or return to CALMS via an RTS R5. It makes 
this decision by checking the value of R5 when EXIT 
was called. When DOS loads a program, it clears R5, 
45 but when CALMS loads a program, R5 is equal to a 
location within CALMS. 

Therefore, CALL EXIT will work for programs 
running under DOS or under CALMS. 

In order to select EXIT.OBJ over the FORTRAN 
50 exit subroutine, specify EXIT before FTNLIB in the 
link command string. The /SU switch should be used in 
the FORTRAN command string to save additional core 
and time. 

All FORTRAN modules of CALMS should be com- 
55 piled with /SU or they may not fit in core. 

SAVER 

60 Purpose: To save and restore registers 0-4 on the 
stack, for subroutines called with an R5 calling se- 
quence. 

SAVER and RESTR provide a convenient way for 
MACRO subroutines to save and restore registers 0-4 
65 on the stack. 

To save registers 0-4: 

JSR R4, SAVER 

To restore registers 0-4 and return via R5: 

JMP RESTR 

(SAVER is called via R4, and R5 is not saved.) 
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AFILE 

Purpose: To assign a file to a dataset. 

CALL AFILE (MVB, DUNIT, FILPEX, GRP, 
USR) 

MVB is the mini-VICAR block for the dataset. 

DUNIT is the disk unit (1 for DKl:, 2 for DK2:, etc.) 
FILPEX is the 6 character filename plus 3 character 
extension. 

GRP is the group number from the UIC 
USR is the user number from the UIC. 

Example: 

CALL ALFILE (A,l, PIC , 5,5) 

Assigns DK1:PIC[5,5] to MVB A 

PARAM 15 

Callable Entry Point Names: PARAM, PARBUF 
Purpose: To read free-field parameters from the key- 
board and convert them. 

PARAM types an ♦, then reads up to 80 characters 
from the keyboard, terminated by a carriage return. 
Parameters are separated by blanks or commas, and can 
be one of the following: 

1. One word integer — negative integers are pre- 
ceded by a minus sign. ^5 

2. Two word alphameric — first character must be 
alphabetic. The character string is padded with trailing 
blanks if less than 4 characters. It is truncated if more 
than 4 characters. 

3. Variable length alphameric — the string is en- 
closed in apostrophes. If an odd number of characters, 
the last word is padded with a trailing blank. If an apos- 
trophe is desired, type two consecutive apostrophes. 

The raw character string is saved at TARBUF’ 
which is accessible to MACRO programs, but not 
FORTRAN. However, the user can optionally supply ^ 
his own PARBUF. 

The calling sequence is: 

CALL PARAM (N,P PAR, MAXNP [, PARBUF]) 

NP is the number of parameter words that were ^ 
stored in PAR 

MAXNP is the maximum allowable number of pa- 
rameter words (the size of PAR) 

PARBUF is optional 83 byte user buffer for the raw 
character string. 45 

Example: 

INTEGER PAR (20) 

CALL PARAM (NP, PAR, 20) 

If the user types: 

NH, PRINT, 42, >-l, ‘ABC’ ‘DEF 50 

The result is: 

PAR (1) = NH 
PAR (2) = AA 
PAR (3) = PR 

PAR (4) = IN 55 

PAR (5) = 42 

PAR (6) = -1 

PAR (7) = AB 

PAR (8) = C' 

PAR (9) = DE ^ 

PAR (10) = FA 
NP = 10 

PARAM is reentrant if the user supplies PARBUF. 
However, an earlier keyboard input request must be 
satisfied before a latera one can be done. 

PARAM maintains a byte with the global name 
‘PBUSY’. It is set to one when PARAM is entered, and 
cleared when PARAM exits. 


Any program which is entered by an interrupt (such 
as SEARCH or HCOPY) must check that PBUSY = 0 
before calling PARAM. If PBUSY is not zero, the 
program must signal PARAM that it is waiting to call it, 
but could not because PARAM was busy. It does this 
by storing the location for PARAM to transfer control 
to in ‘PINT’ or PINT -h 2, and then executing an RTl. 

PARAM will then call the waiting routine with a 
simulated interrupt, when it has finished with the earlier 
request. 

(The PBUSY, PINT method is required under DOS; 
otherwise the KB driver gets confused). 

QPRINT 

Purpose: To print a message, with automatic buffer- 
ing 

QPRINT waits for completion of a previous print, 
moves the message to its own buffer, initiates a print 
with a TRAN request, and returns to the user. 

CALL QPRINT (LOC[,NBYTES]) 

LOC is the first byte to be printed (carriage control). 
NBYTES is the number of bytes to be printed, (maxi- 
mum — 132). 

NBYTES can be omitted if the message is terminated 
with a “zero” byte. 

FORTRAN automatically inserts a zero byte for 
literal strings and ‘ASCIZ’, in MACRO, also does this. 
Example: 

CALL QPRINT (‘single space’) 

CALL QPRINT (‘0 double space’) 

TYPE 

Purpose: To type a message with automatic buffering 
TYPE is similar to QPRINT, except that output is on 
the keyboard and the maximum message length is 80 
bytes. 

CALL TYPE (LOC [, NBYTES]) 

If NBYTES is omitted or zero, a null (0) terminates 
the message. TYPE inserts a <CR> at the end of the 
message unless NBYTES = 0. 

IV 

Purpose: To convert and move logical *1 (byte) data 
and word data 

IV is a function and the other entry points are subrou- 
tines. These routines consider bytes to be positive num- 
bers from 0-255. (FORTRAN treats bytes as signed 
numbers from —128 to -hl27.) 

IV (byte) = Integer value (0-255) of a byte variable 
CALL ITL (INT, LI) (INTEGER TO LOGICAL) 
Move the low order byte of INT to LI. 

CALL MVL(L1, L2, N) (Move LOGICAL) 

Move N bytes starting at LI to L2 
CALL MVW (II, 12, N) (Move WORD) 

Move N WORDS starting at II to 12 
CALL ZIA (IBUF,N) (Zero INTEGER array) 

Zero N WORDS starting at IBUF 
CALL ITLA (INT,L1,N) (INTEGER to LOGI- 
CAL array) 

Store INT in N bytes starting at LI 
CALL SWAP (II, 12) 

Interchange II and 12. 

Note: RO is not saved by these routines! 

TEXT 

Purpose: To generate readable characters for labeling 
of pictorial output. 
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Each character is generated from a six sample by 
seven line array of BYT, where a one BIT represents 
black and a zero bit represents white. The left most of 
the six samples is always zero. 

CALL TEXT(INBUF, INCHR, LINE, OUTBUF, 
SIZE) 

INBUF is the location of the input ASCII characters 
INCHR is the # of input characters 
LINE is the line number (0-6) of the bit array 
OUTBUF is the location for the output bytes 
SIZE is the number of bytes to store for each bit (1,2, 
...) 

OUTBUF must be at least INCHR*SIZE*6 bytes 
long 

HCPAK 

Purpose: To pack and unpack data in hardcopy for- 
mat (4 bits) and convert from 7 to 8 bit format. 

CALL HCPAK (BUF8, BUF4, NE) 

CALL HCUPK (BUF4, BUF8, NE) 

CALL MVW78 (BUF7, BUF8, NW) 

BUF8 is the LOC of 8-Bit Data 
BUF4 is the LOC of 4-Bit Data 
BUF7 is the LOC of 7-Bit Data 
NE is the number of elements to pack or unpack. NW 
is the number of works to convert from 7-Bit format to 
8-Bit format. 

RPARAM 

Purpose: To pass parameters to a CALMS phase and 
to assign the next phase to be loaded. 

CALL WPARAM (NP, PAR, PNUM) 

NP is the number of words of parameters to write 
PAR is the location of the parameters 
PNUM is the number of the phase which is to receive 
the parameters 

CALL RPARAM (NP, PAR, NPMAX [,PNUM]) 
To read parameters through the CALMS supervisor. 
See the PARAM writeup for details. PNUM is an op- 
tional phase nunber used to read another phase's param- 
eters. 

CALL APHASE (N) 

Normally, phases are loaded in sequence, but 
APHASE is used to change the sequence, 

N is the number of the phase. 

DLINE 

Purpose: Subroutines used to access the gray scale 
and cursor, when running under the CALMS supervi- 
sor. 

CALL DECLEAR to erase the entire gray scale. 
CALL DLINE (LOC, Y,X,NS,REPL, ERASE) to 
write a line of data. 

LOC is location of data in core. 

Y is line on gray scale (0-1023) 

X is starting sample on gray scale (0-1023) 

NS is number of samples 

REPL is non-zero to replicate samples and lines. (If 
switch 3 is up, only samples are replicated) 

ERASE is 

positive to erase this line before writing 
negative to erase only 
zero to write only. 

CALL DWAIT to wait for gray scale ready 
CALL CURSOR (Y,X, LINE, SAMP) to read the 
cursor. 

Y is the line on the gray scale (0-1023) 

X is the sample on the gray scale (0-1023) 
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LINE is the picture line (1-512) 

SAMP is the picture sample (1-512) 

CALL SC sets up the cursor adjustments and saves 
them on disk as parameters for INTI. 

CALL RCA reads in the cursor adjustments from 
disk. 

CALL MCU moves the cursor up one line 
CALL MCD moves the cursor down one line 
CALL MCL moves the cursor left one sample 
CALL MCR moves the cursor right one sample 
CALL UDLR (PAR) moves the cursor one step 
according to whether PAR is a U,D,L, or R. 

The cursor adjusment process is required to correct 
for cursor drift. Two marks are written on the gray 
scale, one at 32, 32 and one at 992, 992. The operator is 
requested to move the cursor to these reference posi- 
tions and the readings are saved. Thereafter, CURSOR 
performs a linear interpolation on all cursor readings, 
using the saved values. 

There is also a standalone version of DLINE in 
FTNLIB. It differs from the CALMS version in the 
way the cursor adjustments are saved and read back. 

MCISUB 

Purpose: Subroutines to control the MCI and sort the 
spread queue. 

This module consists of miscellaneous subroutines 
used by SEARCH and CALMS. It also globally defines 
the MCI register addresses and interrupt vector loca- 
tions. 

CALL IXYABS (Y,Y) Initiates a motor move to X,Y 
CALL IXREL (XDEL) Initiates a relative X move 
CALL lYREL (YDEL) Initiates a relative Y move 
CALL IFREL (FDEL) Initiates a relative F move 
CALL CFOC (F) Stores the sum of the two focus 
parameters 

CALL LED (CODE.VAL) Puts VAL in the LED 
whose code is given 

CALL MFST (MAGN, FPOS) Stores the magnifica- 
tion and filter position in MAGN and EPOS, and 
displays the magnification in the magnification 
LED. It also stores FSTEP, FLAST, XADJ, and 
YADJ for the lens in use. 

CALL SORTQ Sorts the spread queue according to 
its rating. 

ROACH 

FUNCTION: ROACH (WI,BI,WORD,EWI,- 

MASK) 

ROACH will scan a binary line to locate the first set 
bit. The scan will begin at WORD (WI) and end at 
WORD (EWI). If no set bit is found, the return code is 
zero. If a set bit is found, WI is returned as the index of 
the word containing the bit. BI is the bit index within 
the word (numbered 0, 1, 2, . . . , 15). The corresponding 
bit position within the MASK is also set. 

TURTLE 

TURTLE is invoked by SEGMENT to walk coun- 
terclockwise around the perimeter of objects in the 
binary picture. 

CALL TURTLE (COMMON, EDGE, WOD,- 

MASK,NW2) 

COMMON is composed of the following six words: 
N = the number of segment end points found 
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PERIM = the number of perimeter points found 

YMIN,XMIN, YMAX,XMAX, = the extreme coor- 
dinates of the object 

EDGE is an integer array into which is placed the 
coordinates of the detected end points. On input, 
WORD points to the word containing the first detected 
bit of the object and MASK designates the bit positions 
within that word. NW2 is the number of bytes per line. 

The TURTLE uses a four point connectivity algo- 
rithm in walking around the perimeter. At each step, the 
TURTLE will examine its four adjacent neighbors, 
numbered 0,1,2, and 3 (See Flow Chart 10) to determine 
its new direction. The order in which neighboring sam- 
ples are examined is predetermined to ensure that the 


40 

TURTLE will always proceed in a counterclockwise 
direction (See Flow Chart 11), 

5 Since not all perimeter points are segment end points, 
the TURTLE uses a decision table to identify the end 
points. End point determination is based on the TUR- 
TLE’S previous and current directions, and his convic- 
tion that since he is traversing the perimeterin a coun- 
10 terclockwise direction, the chromosome will always 
remain on his left. Line segments which contain only 
one sample are recorded twice so that all segments have 
starting and ending end point coordinates. The TUR- 
TLE’S decision table is given in Flow Chart 10. The 
15 number of times perimeter points are recorded as end 
point coordinates appears in parentheses. 
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FLOW CHART ix Four Point Connectivity Algorithm 


SORTIN 

SORTIN is invoked by SEGMENT to sort the end 
point coordinates for a chromosome in the order that 
they would be encountered while scanning the chromo' 
some line-by-line from left to right. Thus, the short is in 
assending order, first by line coordinate, and second by 
sample coordinate. 

CALL SORTlN(EDGE,N,IND) 

N is the number of end points. 

Upon return, IND=0 if the sort was successful, ^ 0 
if not. 

EDGE is a buffer area 4N words long. The first 2N 
words contain the end point coordinates for the chro- 
mosome. The remaining 2N words is used as a work 
area for the bucket sort routine. 


SORTIN uses a byte array to keep track of the order- 
ing of the end points. Because of this, a maximum of 255 
end points may be sorted. 

ERASE 

ERASE is invoked by SEGMENT to remove a chro- 
mosome from the binary spread image. 

CALL ERASE(WORD,EDGE,AREA,N2,NW) 

WORD points to the buffer area containing the bi- 
nary image. 

EDGE points to the end point coordinates for the 
chromosome. 

N2 is the number of coordinates in EDGE (two per 
coordinate pair). 

NW is the number of words per line in the binary 
image. 
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AREA is returned as the number of sample points 
contained in the chromosome. 


44 

Four point linear interpolation is used to set the inten- 
sity values of the rotated object. 


ORIOB 

Purpose: Orient objects. 

CALL ORIOB(IBUF,OBUF,EF,CHDIR,NL,0- 
PROT,RCODE) 

ORIOB finds the minimum enclosing rectangle for 
the object in IBUF using the endpoint table EP and 32 
rotations from 0® to 90^ It then rotates the object into 
OBUF and sets the rotated NL and NS in CHDIR. 
OPROT specifies any additional rotation desired by the 
operator. 

EPROT 

Purpose: Rotates chromosome endpoints. 

CALL EPROT(SIN.COS,NL,EP,XMIN,XMAX- 
,YMIN,YMAX) 

EPROT rotates the endpoints (EP) by the angle spec- 
ified by SIN and COS. It returns the limits of the enclos- 
ing rectangle (XMIN,XMAX, YMIN,YMZX). 

OBROT 

Purpose: To rotate objects. 

CALL OBROT(XMIN,XMAX,YMIN,YMAXr 
COS, SIN, IBUF, OBUF) 

OBROT rotates the object in IBUF into OBUF. COS 
and SIN specify the rotation angle and XMIN,X- 
MAX,YMIN,YMAX give the enclosing rectangle 
of the object in unrotated coordinates. 


ACCSUB 

5 Purpose: Accumulate area and density by sample for 
rotated object. 

CALL ACCSUB(BUF,NL,MS,AREAA,DENA,- 
TAREA,TDEN) 

The chromosome is located in BUF and is NL by NS. 

10 AREAA is the area accumulator by sample and DENA 
is the density by sample. TARE A and TDEN are the 
area and density totals for the object. 

CHROUT 

15 Purpose: To stand objects up and move them into the 
output buffer. 

CALL CHROUT(IBUF,OBUF,NS,NL.LP- 

B,IP,FLG,BUFSZ) 

CHROUT rotates the object in IBUF (NS X NL) by 

20 + 90*" in to OBUF for output. LPB gives # of lines that 
will fit into OBUF, FLG tell which way to rotate ob- 
ject and BUFSZ is NS for IBUF. 

KURSOR 

25 Purpose: To locate information about the karyogram 
for the current cursor position. 

CALL KURSO R(Y,X,L,S,SLID,SLCL,SLCS,N) 

Y,X,L,S are the cursor coordinates returned by cur- 
sor. SLID is the slot ID indicated; SLCL and SLCS are 

50 the slot center coordinates; and N is the object ID of the 
object residing in the slot. 


cor:?iirLR pRiWiOur frov- m 


.TITLE CrtLnS - CALMS SUPERVISOR 

.NLIST.__BEX .. „ „ 

. MCALL . CALL/ .EXIT. . PAUSE. . IHIT. . IRAN, .UAIT. .RLSE 
.GLOOL RLS..CVT. CDT. jMAKE EMTS RESIDENT 
iSUPERVISOR FOR THE CLINICAL AUTOMATED LIGHT MICROSCOPE SYSTEM 
;F0R CHROMOSOME ANALYSIS. 

jT^t SUPERVISOR CONTROLS SLIDE SEA.RCH. SCANNING. ANALYSIS. AND HARD-COPY 

i OUfPUL.OlF.. ICdK.Y0.T.YP„LS ,.0R„C OURIS.^ 

^SEARCH AND HARD-COPY ARE PERMANENTLY RESIDENT BELOW LOCATION $0800. 
iSCAN AND AN.ALYSIS CONSISTS OF 16 PHASES THAT RESIDE ON DISK IN C0R£- 
# IMAGE FORMAT. ONE PHASE AT A TIME IS LOADED AT LOCATION S0000 AND 
fCALLED ay THE SUPERVISOR, . . . 


LF=12 

PSU= 17??76 
HPH=24 . 

BIMPH=»g 

H0B>H=»6 

jNTPH»? 

“hOBPH»8. 

MASKPH’ilS. 

MSDS»3 

NHDS«2 

SDU = 5 

HDU-3 

«VBSI2=56. 

LABSI2«12. 

IBH=12 

19A«14 

CURREC»30 

SBM»46 

RECLEN«»54 

BUFSIZ=S0 

BPB-62 

DBFLAGjl64_ 

SUR =! 77570 


.LINE FEED 

j» OF PHASES 
jJ IHAR Y PHASE HUMBER 
iNOB PHASE NUMBER 
rl NT I. PHASE NUMBER 
iMOB PHASE HUMBER 
;MASK PHASE NUMBER 
I# OF SCAN DATA SETS 
;» OF HARDCOPY DATA SETS 
iSCAH DISK UNIT 
jHARDC0PY_ disk UNIT 


iMVB DEFINITIONS 
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45 

i ^ CURRE HT . OR I C.IH, I S 3009? 


SOUI^CE 

: . yoRB 

8. 


H5CAN: 

. yORD 

9 

i9 TO BE SCAHKEB 


. yORB 


;CURRENT PHASE HUMBER 

PANUft; 

. ASCII 

/12345678 y 

(PATIENT IBEHT IFICAT10rl„ . _ 

SLHUrt: 

. ASCII 

/123A1 / 

iSLlBE IDEHTIF1CATI08 

PASEX: 

.ASCII 

/F / 

(PATIENT SEX _ - - . .. 

SPH: t 

. yORB 


(CURRENT SPREAD NUMBER 

CSPQ: : 

. VORB 

SPQ+. 

(CURRENT LOC IN SPO . . 

SPRr : 

. BIKB 

309. 

(SPREAD RATINGS 

SPQ. - 

BLKW 

889 

(SPREAD QUEUE <X,Y) 

LPANUH 

. . yoRB ^ 

19. 

jLEHCTH of PAHUM IH BYTES 

LSLNUrt 

. . UCRB 

8. 

(LENGTH OF SLHOM . _ 

NPHASC 

: . yORB 


(NEXT PHASE TO BE CALLED 


. PACE 


- - 

- CALMS: 

. CALL 

TYPE. <HSG2. 2ER0> : flSK OBOOT RESTART 


MOV 

IS/ R1 



CLR 

LINE 


Cl ED. 

. CALL 

LEB/ <UNE/ 2ER0> 

i INITIALIZE LEJDS 


INC 

LINE 



SOB 

. Rl/ CLES 

. , . , . - 


. CALL 

OPEN/ <MV8/ PSI 2£ 

. ZERO. ZERO. LHAH> (OPEN OVERLAY DATASET 


MOV 

PSIZE/ MVB*»ECL£N 


. CALL 

OPEN. <PaVB/ PARSI2/ ZtRO^ TQO/PlNAif) ^ PARA^ETEff JS 


MOV 

PARSI2, PI1V9+RECLEH 


MOV 

#4, BHPTAB+ IHTPH+IHTPH-2 j SET TO REftD 4 CURSOR 0»J«HTS 


MOV 

#512. . NPTAB 

;ALlOy RESTART 


MOV 

#512. . DHPTAB 



MOV 

«HHBS/ R9 

iSET UP THE START BLOCK NUMBERS FOR . 


MOV 

»HSBH/ Rl 

(ALL HARDCOPY DATA SETS 

C95i 

MOVB 

R8/ P1LPEX41 



BIS6 

#60/FlLPEX+l 

(CONVERT TO ASCII 


- CALL 

AFILE. <A-LHDU.F11PEX, TOO. TUO> 


. CALL 

OPEN. < A. TBELVE. 

ZERO. ZERO/ LNAME > 


MOV 

A+SBH. <R1>+ 

i5AVE LH£_ SlAftl. BjJLCX_ttUHB18_ - 


SOB 

R0/ C05 



. CALL 

SEARCH 

(INITIAL CALL TO SEARCH, 


JSR 

PC/ PPAR 

(PROCESS RESTART AND PHASE PARAMETERS 


TST 

HSCAN 



B HE 

sie 

(BR IF A SCAN RESTART 

S0Sj 

JSft 

PC/ TUSCAN 

(IF HSCAM-e . ALLOW SEARCH START 

i 

ste, 

TSTB 

SFLAG 

i' IDLE LOOP* STARTS HERE 


BHE 

S49 

iBR IF SEARCH RUHNIHG 


TST 

HSCAH 



BEQ 

S40 

iBR IF NONE TO SCAN 

S13: 

MOV 

«HSS$/ R0 

iLOOK FOR SCAN D$ 

SI 5: 

MOV 

iSSS/ Rl 



MOV 

HFSBS/ R2 

i# FULL SCAN DATASETS 


BEQ 

S22 

iBR IF ZERO 

S20; 

CHPB 

R0/ <R1 >♦ 

(CHECK RB AGAINST ALL FULL DATASETS 


BEQ 

S23 

iBR IF DATASET IS JH USE 


SOB 

R2/ S29 

iBR IF MORE TO CHECK 

S22: 

MOVB 

R8/ 9R1 

(OK TO USE THIS DATASET, STORE IT 


BR 

S39 

iGO CALL SCAN 

S25: 

SOS 

R9/ $15 

iBR IF MORE TO TEST 


DR 

$40 

iNONE AVAILABLE 

$30: 

BIS 

t60/R9 

iCONVERT TO ASCII 


Move 

R0/ FILPEX+t 

iSTORE IN FILENAME . . 


Move 

#'S/f ILPEX 

iAS $N 


MOV 

#S9U/ SUHIT 

iSTORE SCAM DISK UNIT 


DEC 

HSCAH 

iNSCAH»HSCAN-l 

S31: 

. CALL 

PHftSE, <OHE> 

iSCAN . - 


. CALL 

LEB/ <SQLES/ H8CAH> 


TST 

HPHASE 



BEQ 

SOS 

(BR IF SCAN UAS ABORTED 


CLR 

NPT0B+H0BPH>H0BPH-2 jCLEAR HOB PARAHETERS FOR IHTl 

S3 15: 

CLR 

HPTAB-^BIHPH + BlMPH-2 iCLEAR 8IHARV PARAMETERS 


. CALL 

PHASE. LI HTPH 

iCALL IHTl FOR THE PRE-F03 ADL 


CM? 

NPHASE/#! 

iTEST FOR RESCAM OR ABORT 


BEQ 

S31 

iBR IF RESCAN 


b'lt 

SOS 

i8R IF SPREAD HAS ABO.RTED IN INTI 


CMP 

HPHASE, #HOBPH 



SHE 

S33 

iBR IF HOT A COUNT 


. CALL 

PHASE. HPH9SE 

iCALL NOD 
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HPHASE> #(1ASKPH 




SHE 

S315 

jBR IF NOT MASK 


$32: 

JSR 

PC/ THSCAH 

)1F NSCAN « 9 / ALLOW SEARCH START 


JMP 

C15 

iCO CALL MASK2 


$33: 

CMP 

HPHASE/ IMASRPH 




6EQ 

S32 

/BR IF MASK 



TST 

HPTASi-BIHPH+BINPH-a 



6EQ 

S38 

;BR IF NOT QUICK OPTION 



. CALL 

PHASE/ KPHASE 

iCALL BINARY 



GR 

S315 



$33: 

INC 

NPSBS 

ilHCREMENT ANALYSIS QUEUE 



. CALL 

LED/ <AQLEJ>/ KFSDS) jUPDATE ANALYSIS OUEUE 



GR 

S66 



S49> 

TSTB 

PPLAC 

;S£E IF PATIENT REPORT WAS REQUESTED^ 



S42 

/OR IF HOT 



CLPB 

PFLAb 




. CALL 

PHASE. PPHASE 

;CALL THE PATIENT REPORTER 


S42: 

TSTB 

EPLAC 

iSSE IF TEXT EDITOR HAS REQUESTED 


BEG 

S45 

/BR IF HOT 



CLPB 

EFLAG 




. CALL 

PHASE, EPHASE 

iCALL THE EDITOR 


S45 

TSTB 

FRFLAG 

iSEE IF FORTRH UAS REQUESTED 



BEG 

S46 

iBR IF HOT 



CLRD 

FRFL^G 




. Call 

PHASE, FFh$£ 

iCALL FORTRH 


S46: 

TSTB 

RFLAG 

iSEE IF RESTART UAS REQUESTED 



8EQ 

S47 

iBR IF HOT 



CLR8 

R.FLAG . 




JSR 

PC/ RSTRT 




BR 

JPS19 

iGO BACK FOR RESTART 


$47: 

MOV 

*SDS/ R1 

jSEe if ready for analysis 



__ M_OV 

NFSDS/ R2 




GEO 

JPSie 

jDr if no full scan datasets 



Move 

t^S/FILPEX 




MOV 

#SDU/ DUNir 




MOVB 

GRl/FlLPEX+1 




novB 

GRl/Re 

ISAVE DATA SET i IN R9 



BISB 

#68/FlLPEX+1 

iCONVERT TO ASCII 



SEC 

HFSDS 




. G.EC _ 

RZ 




GEQ 

S69 

i8R IF NO DATASET NUMBERS TO MOVE 

S53: 

Move 

i<en> BAi 

iMOVE DATASET NUMBERS _TO TOP OF 

LIST 


INC 

Rl 




SOB 

R2/ S59 



$66. 

MOV 

FPHASE/HPHASE 

iSTART ANALYSIS WITH PHASE 2 OR 

DEBUG PHASE 


MOV. 

6DHPTAG/ R6 




MOV 

iNPTA0/Rl 




MOV 

#NPH/ RZ 



$65: 

MOV 

<RO) + / <Rn + 

jMOVE dnptag to hptab 



SOS 

R2/ S65 _ _ 






/ANALYSIS LOOP STARTS HERE 


S75:. 

. CALL 

PHASE/ <HPHAS£> 

{CALL AN ANALYSIS PHASE 



TSTB 

RFLAG 

iTEST RESTART FLAG 



BEG 

S8G 

iBR IF NOT SET . 



cl’rb 

RFLAG 




JSR 

PC/ RSTRT 



“S36: 

fST 

H PHASE 

{TEST FOR ABORT <OR ANALYSIS RESTART) 


BNE 

S85 

{OR IF NOT AN ABORT .<NPHA$E-!0.) 



. CALL 

LED/ < AQLED/ HFSDS> 



JMP 

SIO 



385r 

CMP 

HPHASE/ 5MASXPH 




B.NE 

3 75 

iBR IF HOT THE MASK PHASE 





lEHD OF ANALYSIS LOOP 
{LOOK FOR HARDCOPY DATA SET 


C15: 

MOV 

4NHDS/ R9 

{f HCOPY DATA SETS 



MOV 

«HBS/ Rl 




MOV 

4HS9H/ R2 



C29: _ 

TSTB 

<R1 ) + 




GEQ 

C3G 

iBR IF DATASET IS EMPTY 



TST 

(R2> + 

iSTEP HSBN 



SOB 

R6/ C29 

iBR IF MORE TO TEST 



GR 

CIS 

{HONE AVAILABLE/ KEEP LOOKING 


C30: 

GIS 

$69/ R9 

/CONVERT TO ASCII 



MOVB 

R0/ FILPEX+1 

{STORE IN FILENAME 
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HOVB i' 

«OV #H 

IHCB "< 

nov Ri 

HOV R2 

. TALL PH 

fiove #- 

IHC NH 

•CALL LE 

.CMLU LE 

TSTB HC 

_eNE _ JS 
IHCB HC 

BIS «1 

nov CM 

MOV 9C 

ilov 

.^SJL P.C 

4HP SI 

. PHCE 

PLOC -60889 


i'H.FUPEX lA 

«HDU^ DUHIT iH 

-<Rl) it 

Rl/CMDS .iS 

R2. CSBH iS 

PHASE# <ttPHASE> fH 
#-l,£?CMOS iS 

NHCOPY 

LED. <HQLED, HHCOPY> 
LED. <AQLED. NFSDS) 
HCFLG 

JS1_8 iB 

HCFLG I'S 

#1,8#LITES iT 

CMDS. CHDS 

9CS8N.A+S3H )S 

91P3'J. -<SP) iS 

P.C^_HC.OPt iSi 

S18 


lAS HH 

jhardcopy disk UHIT 

*SET DATASET SUSY 

iSAVE LOC OF CURREHTJfASK dataset 

iSAVE S8H LOCATION 

iHA$K2 

iSET DATASET FULL OF DATA 


_iBR IF HCO PY IS OPERAIIMG. . 
I'SET HCOPY OPERATING 
iTURH ON HCOPY LITE 

)SET UP START BLOCK HUMBER 

iSAVE PSU TO SIMULATE TRaP 
iiLALi^JlCOejC_ 


PHASE; 


92<RS).R1 

Rl# PNUn 


iPHASE START LOCATION 


iSrORE PHASE NUMBER 



MOV 

Rl# NPHASE 

iHPHASE-PNUM^l 





. CALL 

ZIA#<iS7088.L377> i ZERO 518 BYTES OF 

UPPER 

CORE 



. CALL 

READ. <MVB. PHUM^ 

INDEX. PLOO {READ PHASE 

PMON 

INTO 

PLOC 


ASL 

Rl 






ADD 

#PLITE-4.R1 






BIS 

9R1.99LITES 

iTURH ON THE LITE FOR THIS 

PHASE 




. CALL 

PLOC. <DUHIT.F1LPEX> {CALL THE PHASE/ GIVING 

IT A 

DATA 

SET NAME 


SIC 

9I4I76.99LITES 

iTURH OFF ANALYSIS LITES 




; 

RTS 

R5 





PPAR, 

. CALL 

PARAM/ <NP/ PAR# MAXNP> i JSR PC# PPAR 





DEC 

HP 






BMI 

PPEXT 

i8R IF HP WAS 8 





CMPB 

PAR/9^N 






SEQ 

PPEXT 

idR IF HO RESTART 





CMPB 

PAR/#' Y 

•f. 





BEQ 

RSTRT 

#8R IF A RESTART 





JMP 

PP40 

■PHASE NUMBER AMO PARAMETERS 



“ "PPEX tT" 

RTS 

PC 





RSTRT: 

TSTB 

SFLAG 

jJSR PC. RSTRT 





BHE 

PP03 

iBR IF SEARCHING 





. CALL 

TYPE. <M4/ ZERO 

lASK ABOUT SCAN RESTART 





. CALL 

PARAM/ <MP/ PAR/ flAXMP) 





CMPB 

PAR8UF/#'Y 






BHE 

PP83 

i3R IF HO SCAM RESTART 





. CALL 
. CALL 
. CALL 

nov 

CMP_ 

bIe 

CMP 

BGT 

DEC 

MOV 

sus. 

ASL 

ASL 

ADD 

. CALL 

.CALL 

.CALL 

. CALL 

CMP8 

BKE 

CLR 

MOV 

MOV 


RPARAM#<HP. SOURCE. LSt2/0NE> jREAD RESTART IHFO 

TYPE. <M7.2£R0> fASK FOR FIRST SPREAD HOMBER 
PARAM. <NP. PAR»NAXNP> 

PAR.R8 

___ _ 

PP82 »BR IF number' LE 1 

R8. HSCAH 

PP82 fBR IF Cf NSCAH 

Rd iLEGAL HUMBER. DECREMENT IT 

R8. SPH iSTORE IT 

HSCAN_ __ _iADJUST__N$CAN 

R8 

R8 iM«4 

R8. CSPQ I ADJUST CSPQ 


R8 iM«4 

R8. CSPQ lADJUST CSPQ 

GHSTS ;C£T FIRST SPREAD TO SCAN AND ENABLE SPIRAL SEARCH 
L£D#<SQLED# HSCAN> 

TYPE. <M5. ZERO) >ASK ABOUT ANALYSIS RESTART 

PARAM. <HP. PAft.MAyHP) 

PARBUFi#^Y 

PP15 jBR if ho ANALYSIS RESTART 

NPNA3E }HPHASE>0 

4HSDS/ R8 

• SDS. Rl . ... 
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MO" 

VO/ HF 3 33 

iSET ALL SCAN DATA SETS AS FULL 

PP13 

rtove 

R0/ (Rl ) + 



309 

PB. PPIB 



. CALL 

TYPE, <M8, ZERO) 

)ASK HOU RAHY 


. CPLL 
TST 

PAR AM, <NP, PAR, 
PAR 

MAXNP) 


BLE 

PPIZ 

7br if n le e 


C«P 

PAR, #HSBS 



BCE 

PPI2 

iBR IF H CE HSDS 


ilOV 

PAR,MF33S 

iSTORE HFS33 . . 

ppia. 

. CPLL 

LED. <AQLEO> HFSBS> j DISPLAY AMALYStS QUEUE 

PPl5k 

TSIB 

-ilCFLC 



SHE 

PPEX 

iBR IF KCOPV RUNNING 


.CBLL , 

LYPE, <MS.,2ER0> 

jASK ABOUT RARDCQPY RESTART . 


. CALL 

PARAM, <NP, PAR, 

HAXNP> 


CMPB 

PARBUF.Q' Y 



BNE 

PPEX 

iBR IF HO HARDCOPY RESTART 


HOV 

•NHBS, RB 



nov 

• HDS. Ri 



. CALL 

TYPE, <HB,2ER0> 

lASK HOy HAMV 


. CALL 

PARAM, <NP, PAR, 

MAXNP> 


TST 

PAR 



BLE 

PP18 

iBR IF H LC • 


CMP 

PAR,«NHBS 



BCE 

PP18 

/BR If N CE HHBS 


HQV 

PARf RB 

/LWAJL H 

PP10. 

nov 

R8, NHCOPy 

iSET H HARDCOPY DATA SETS AS FULL 

PP201 

nov8 

#-l, <R1)+ 



SOB 

RB, PP26 



INCB 

HCFLG 

iSET HARDCOPY OPERATING 


BIS 

•t, QQLITES 

/TURN OH HARBCOPY LITE 


nov 

Bspsy, -<sp) 



JSR 

PC, HCLEB 

iSINULATE INTERRUPT TO HCOPY END RTE 

Pf£Xi 

RTS 

PC 

_ . 

PP40. 

nov 

PARpRB 

/PHASE NUMBER 


BLE 

PERR 



cnp 

RB, tNPH 



BCT. . 

.PERR - - -- 

... 


A8L 

RB 



, ABB 

..#BNPTAB-2, RB 

jDNPTAB+2.AP/(Un-r^ - 


MOV 

HP, 9RB 

1 STORE HP FOR THE PHASE 


.CALL UPARAH. <Ni». PAS-»2,PAR> 

JPPjSiR, 

^MP 

PPAR 


PERft. 

.CALL 

TYPE, <PEWSG,ZERO> . - 


BR 

JPPAR 


$ 

rNSCAK 

TST 

NSCAH 

/USR PC,TN$CAN 


Bil£ 

-CQilS _ 

iBR. JLf.HS.CAN-JllLI.j:£jLD - 


. CALL 

TYPE, MSGl 

/TYPE 'OK TO START SEARCH' 


. -CALL 

SEARCH 

jALLOy SEARCH .START 


RTS 

PC 


CCNSt 

. CALL 

GHSTS 

/GET NEXT SPREAB TO SCAN 


RTS 

PC 


HVB: 

. 8LKB 

18. 

iHVe FOR READING PHASE FROH CALMS. OVR 


. BYTE 

1,9 

iPK9. - 


. RAB9B 

/BX/ 



9l,K« 

2 



. RAD9B 

/CALHS OVR/ 



.BYTE 

2,2 



. BLKU 

IB. 


L3?r, 

. BORP 

377 


PSI2E. 

. yoRB 

32233. 


TUO> 

. yoRB 

2 


INBE^r 

. MORB 



PPHASE. 

1 . yORB 

2 . 

(FIRST ANALYSIS PHASE <0R DEBUG PHASE) 


. UURB 

NftSici'H 


PPHi^St 

, . yoRB 

u. 

iPREP PHASE 

EPHASt 

. yORB 

17. 

iTEXT EDITOR PHASE 

FPASE: 

. yORB 

18 

iFO.'iTRH PHASE 

DUNITs 

. yORD 


iDISK UHIT FOR SCAN OR HARDCOPY DATA SET 

LHPH: 

. ASCII 

/OVO^ 

. . 

PLKfiiri: 

.ASCII 

/PAR/ 
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BLKU 

10. 

BYTE 

1, 1 

RAD58 

/DK 

3LKU 

2 


P^^RSI2 . 
PLITE: 

HPTAB. 

“BSPTBB, 


BVTE 

BLKM 

yORC 

yORB 

yORB 

BLKy 


54 

ittva FOR yRlTINC AHB REAflIHG PARAMETERS 
iBKl t 


/CALMS. PAR/ - iCALMS.PAH 

2,2 iC2,23 

10. 

1024 . 

180,4 0 , 40 , 4 0 , 40 , 401 20 , 18 , 10 , 10 , 4 , 2 , 2 , 10810 / 18010,4 0 08 
4000 , 4980 , 4080 , 16018 , 6 , 9 , 0,0 


HPH 


iKP TABLE 


. BLKy 
. PACE 
'HC8C»1 
HCAB«1 
HCSf»l 


HPH 

72438 

72432 

72434 

72434 


iBEFAULT HP TABLE 

jHARBCOPY y’ORB COUHT REGISTER 


HCOPY: 


HCIV1 = 

HCIV2- 

IHTPS* 

MOV 

MOV 

MOV 


440 

442 


34 8 

#77777, A 
•77777, A+I0M 
• SLAB, A'1'2 


jIHTERRUPT PRIORITY LEVEL 7 
iCLEAR ACTIVE BLOCK HUMBER. 
lAHB IHACtlVE BLOCK HUMBER 
tREAP LABEL INTO SLAB 


MOV 

CLRB 

CLR 

.CALL 

iREAi) THE LABE 
jTHEH, SEJLILP 

jFOR the bisk 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

IHCB 


CLR 

MOV 

INC 
A SR 
MOV 
ASL 
MOV 

SUB 

MOV 

SUB 

CLR 

ONTST; CLR 

BJT_ 

BHE 

BIT 

BHE 

HCCFF: MOV 

MOV 

lOT, lOT 

GiV 


#LABSIZ, A4B0FSI2 jREAB LABS12 BYTES 

A+DBFLAC iPREVEHT REAB-AHEAB 

A^CURREC iCLEAR CURRENT RECORD HUMBER 

GLABEL,<A, SPAR, 1A> 

L INFORMATION INTO LOU CORE AND CALCULATE RECLEN. 
THE MVS T O USE TVO 49B6 BYTE BU FFE RS IH HIGH CO RE 
TO CORE TO HARD-COPY DMA TRANSFER. 


•77777, A 
•160880, A42 
•77777, A+IBN 
•176898, A4IBA 
_• 180^0^ A^B UFStZ 

• 10, A<^B>B 
A^DBFLAC 

LINE 

•IMTRY,0#HCIV1 
•IHTPS,9#HCIV2 
8PL 
3 PL 

BPL,SPL2 

BPL2 

A‘»’54, RMB 

_B_PL,RMB 

BPL,RMB 

• 168988, 9#HCAD 
RMB,9«HCAB 
0#HCBC 
etHCST 

JI289A/ BliiCST 
ONTST 

•4808, 04HCST 
REPL 

OiHCST, -<SP> 

• 501, -<SP) 


ICLEAR ACTIVE BLOCK NUMBER 
jOHE buffer at 160880 
iCLEAR INACTIVE BLOCK HUMBER 
lONE buffer at 170000 
>eUFSU*4996 BYTES 


}0 BLOCKS PER BUFFER 
>SET DOUBLE BUFFERING 


i INITIALIZE LIKE COUNTER 
ilHT ENTRY ADDR TO HCPY IHT VEC 
j^lJHT 3VC„PAUJ[0 HCPY VEC _ 

ilH CASE OF ODD BYTES 
jUD CNT for HCPY LINE IS 3PL/2 


>2*UDCHT 


iRECLEH 


iCLEAR HCPY VB CNT REGISTER 
iTEST FOR HCPY DEVICE OH 

_aBITM0 is HC RUNNING 

iUAIT FOR PREVIOUS END-FRAME 

iBlT-ll IS HC READY 

iBR IF HC READY 

i DISPLAY HCST 

iA10t MSG, HC OFF 

iACTIOH NSC TO OPERATOR 

;CHECK HCPY' DEVICE AGAIN 


HAPDCOPY DEVICE INTERRUPT SERVICE ROUTINE 


INTRY: 

BIT 

•18833, OiSUR 



BNE 

HXTLN 

rBR If SW„.l2 UP_ 


COM 

LXPHD 



BEQ 

HXTLN 

iBR IF HEM LINE 


SUB 

BPL2, AtHCAD 

iRESTORE HCAD 



NOGSr 

iS'PEiiT THE CftST LIflE 

HXTLN: 

DEC 

HL 

iSECREHEHT LINE 


BEQ ... 

. . £02 S .. 

iBRAHCH.l£..ENIL . 

REPL; 

INC 

LINE 



ADD 

R»B,0#HCAD 



BIT 

♦7777, e#HCAD 



BNE 

NOCET 



4 TEST 
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. CALL 

GET- < A.LINE. INDEiO ; GET LOCATION OF LINE 


_MOV .... 

lA^.$4ftCAD 

..... itHlL jLD.#lJL.UlJ.O _ 


ADD 

INBE.X, ««HCAD 

i HC BUS ADDR REG 

NOGET; 

SU5 

ODCNT. »#HCUC 

iSTORE NEGATIVE WORD COUNT 


MOV 

*U3. OtHCMD 

iCOHNAHB HHE OUTPUT WITH PPftTA-l- LXPHB=>» 


RTI 


iRETURH FROM INTERRUPT 

EODS: 

CLR 

eiHCST 

iSTOP HCOPY DEVICE 


CLR 

0 tPSU 

iLOtfER PRIORITY 


BIT 

«4. 9*SWR 



BEQ 

HCOK 

iBR IF SU 2 DOWN <N0 RERUN CHECK) 


TSTB 

P3USV 

(TEST PftRAM 8USr BYTE 


BEQ 

SCP 

iBR IF NOT 


MOV 

#SCP, PINT 

jstore interrupt address 


RTI 



SCP: 

, CALL 

TYPE. <MSG3. 2ER0> 


CALL 

PARAM. <HP. PAR. 

HAXNP. SP8UF> 


CMPB 

SPBUF/ 4^ V 



BNE 

HCOK 

;BR IF OUTPUT WAS OK 


JMP 

HCOPV 

iPE-DO THE OUTPUT 

HCOK 

CLRB 

0CH33 

jRELEASE THE HCOPY DATASET 


DEC 

HHCOPY 


HCLED; 

. CALL 

LED. <HOL€D. HHCOPY> i ENTRY FOR RESTART 


MOV 

R0. SP) 



MOV 

Rl. -<SP) 



MOV_ 

*NH3S/R9 



MOV 

tHBS- R 1 



MOV 

REG2 


940. 

TSTB 

CRl > + 



GMI 

H33 

»9R IF DATASET IS FULL 


ADD 

#2. P.EG2 



, 505 , F 

CL9iB HCfLG iSET HCOPV NO IDNGEP OPERATING 

eiC 1MriJ^LITE3 #TORN OFF HCOPY LITE 

MOV <SP)-^, R1 

MOV <SP)+. S3 

RTI ^RETURN FROM INTERRUPT 

H50:. MOV . 0RE02. A + 56N i S ET_ ...UP S T ART 3L0CJL ilUMOER 

DEC Rl 

MOV PUCHDS 

MOV (SP)+, R1 

MOV <SP)+. R0 

JMP HCOPV jSTART HEU DATASET 

. . .PACE _ _ _ .. 


LIKTPH 

. WORD 

INTPH 

NP : 

. WORD 


PAR: 

- BLKU 

20 

MAXNP. 

.WORD 

20 

LHDU: 

. WORD 

HDU 

ZCRO , 

WORD 

Q 

On£, 

UOPD 

! 

FOUR: 

. WORD 

4 

FIVE: 

. WORD 

5 

TWELVE 

WORD 

12. 

I A ; 

WORD 


A ; 

BLK8 

MVBSI2 

S L AS : 

- BLK0 

LA3SI2 

SPA.^^S 

L AB>2 



NL=$P.Hi." 
3PL=5PHRt2 
^^DCNT=ePL 
8PE = '3PhR+4 


LXPHO: 

. WORD 




RMB: 

WORD 




fiPL2: 

. WORD 




LINE: 

. WORD 




NFSDS: 

. WORD 


i« OF FULL SCAN 

DATASETS 

CMOS: 

. WORD 


iLOC OF CURRENT 

MASK DATASET FLAG 

CHBS: 

7 WORD 



i'LOC OF CURRENT 

HARDCOPY DftTASET FLAG 

HZSH: 

- BLKW 

HHD3 

iHARSCOPY DATHSET STftRT BLOCK HUJ18ER3 

CSBNr 

. WORD 




REG2 

. WORD 




XVAL : : 

WORD 

2098. 



YVAL : : 

. WORD 

2830. 
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HHCOPY 

t . UORS 



it IN HCOPY OUEUE 


SFLAG: 

. BYTE 

9 


iFLAO FOR SEARCH OPERATING 


SDS. 

. BLKB 

NSBS 


(SCAH DATA SET FLAGS 


H5S; 

. BLfCB 

NHBS 


iHARDCOPY DATA SET FLAGS 


HCFLC; 

. BYTE 

9 


iFLAG FOR HARDCOPY OPERATING 


RFUAG: 

- BYTE 

9 


iFLAG FOR RESTART REQUEST 


PFIAG: 

■ BYTE 

9 


iFLAG TO CALL THE PATIENT REPORTER 


EFLAG; 

. BYTE T 

9 


iFLAG TO CALL THE TEXT EDITOR 


FPFLAC 

: . BYTE 

9 


iFLAG TO CALL FORTRN 


eL2£: 

. ASCI2 

/ / 




«SGt : 

. ASCIZ 

/ OK TO 

START SEftRCH-'<LFXLF> 


«SG2: 

. ASC12 

/ IS THIS 

A RESTART? 


P£HSG. 

. ftscrz 

/ ILLEGAL 

PHASE NUHBERI / 


H3G3t 

. ASCtZ 

/ RERUN 

HCOPY? ✓ 


114 : 

. A3CIZ 

/ RESTART 

SCAN? / 


«5: 

. ASCIZ 

/ RESTART 

ANALYSIS? / 


nG, 

. ASCIZ 

^ RESTART 

HARDCOPY? / 


H7: 

. A3CIZ 

^ WHICH 

SPREAD? / 


«8; 

. ftSClZ 

/ HOU MANY 

SPREADS? ✓ 


SPBUF: 

. BLKB 

63. 


iHCOPY PARBUF 


FILPEX. 

•ASCII 

/H* 


/ 


LMAME: 

. ASCII 

/XXX/ 





. EVEN 

. BLKB _ SOURCE + ta900- . PROGRi^N LENGTH CO NSTA NT 

• END C0LHS ■ 


LOC< 


.TITLE SEARCH - SEARCH PARTITION OF CALMS 
MCALL CALL- PAUSE 
LF* 12 
CR=J5 

FT!«E*15. jHAX TIHE SET'JEEN FOCUS DURING SEA2CH 

PSa=177776 

SSR ■■177570 

.-flHCRO JGtTKd WSGi.’LOC _ . __ 

TSTB PBOSY 

BEQ LOC 

HOV •L0C.PINT■^2 

RTI 

CLR BiPSU 

.C ALL TYPE- <MSG- ZERO> 

. ENDH 


•HACRO EHI CODE lEHABLE INTERRUPT 

_BIS »C03E- e» lEAPD 

. ENDH 


.MACRO DSi CODE jDISABLE INTERRUPT 

BIC f CODE- BRIEAPD 

. ENDH 



. HACRO 

LON CODE 

iTURN LIGHT ON 



BIS 

tCODE/ e*LITES 




. ENDH 





.HACRO 

LOFF CODE 

iTURN LIGHT OFF 




BIC 

tCODE. 9tLI TES 



i 

. ENDH 





. HACRO 

HINT KEY 

iHANDLE INTERRUPT FOR KEYS 5-8 

<AC.RJ.NX.LA) 


DSI 

183 




LOFF 

189890 




HOV 

R 87 -<SP) 




■ CALL 

LED. <LKLED. KEY) 




EHDH 




j 

i 

CURRENT 

ORIGIN IS 49339 



CNSTS: . 

JHP 

CMS 

»£NTRY POINT FOR GHSTS 


SEARCH : 

j HOV 

,rSRSTA/ R9 

iJ.NlTIAL CAL.L FilOM SUPERVISOR 



HOV 

«SR3T. (R 0 ) + 

iSET U? SEARCH START INTERRUPT 

VECTO 


HOV 

•293. <R0)4 

(PRIORITY 4 



HOV 

♦IS.. Rl 
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#UIHT. (R0) + 
«208^ <R0)4 

Rl, IS29 

#FOC/ 08FOCA 
#KYRQ, 8«KYR88 
§288^ 8«KYRQA<»2 


iUNEXPECrer INTERRUPT RTE TO OTHERS 
iPRIORITY 4 



. CALL 

HFST. FPOS> . 


ENI 

1410 

iEHABLE SRCH START, F0( 


D5l 


. . . ; DISABLE OTHERS 


RTS 

R3 

{RETURN TO SUPERVISOR 

UIHT: 

. PAUSE 

lEAPD 

{UNEXPECTED INTERRUPT 


RTI 



SRST. 

D$I 

18 



. CALL 

LED,<tKLED 

, SSKEY> 


GETKB 

Ml 

iGET KEYBOARD AND TYPE 


. C^^LL 

PARAH. <NP, 

PAR,MAXNP. SPBUF) 


CHP 

HP, *2 



9NE 

SR20 

iBR IF HOT 2 UORDS 


CHP 

PAR, d*A 



BNE 

SR20 

{6R IF NOT ABORT 


. CALL 

ENt 

RTI 

iNce 

LOPF 
LON 
TSJ__. . 

8EQ 

. CALL 

. CALL 

HOVB 

. CALL 

HO VB 

.CALL 

. CALL 

.CALL 

. CALL 

. CALL 

HOV 

HOV 

CLR 

HOV 

. CALL 

HOV 

. C ALL 

. CALL 

HOV 

HOV 

HOV 

HOV 

HOV 

HOV 

EHI 

RTI 


iSET SEARCH OPERATING 
jTURN off E51T LKH7S 
;TURH SEARCH LIGHT OH 


TYPE, H? jSEARCH ABORTED, .JVPe H7. 

10 

SFLAG iSET SEARCH OPERATING 

10259^ jTURN off EDIT LIGHTS 

1080 ;TURH SEARCH LIGHT OH 

HP . 

SR30 }BR IF SANE PATIENT AND SLIDE 

HVCR, <SPBUF»PAHUH/ LPAHUH> iHOVE PATIENT HUHBER 

TYPE, <H2,2ER0> 

i* >PAR IIHITIALIZE SEX TO BLANK 

PARAN, <HP, PAR,HAXNP, $P6UF> 

PAR, PASE X iSTO RE PATIEN T SEX 

TYPE, <H3,2ER0> 

PARAH, <NP, PAR, HAXNP, SPBUF> 

HVCR, <SP3UF,SLHUH, LSLNUn> jHOVE SLIDE HUHBER 

TYPE, <HB, ZERO 

PARAH, <HP, PAR,HAXHP, SP8UF> 

PAR, SOURCE iSTORE SOURCE CODE 

tSPQ,CSPa jINITIALtZE SEARCH QUEUE POINTER 

KSP jN$P>0 

RB, -<SP> iSAVE R8 BEFORE CALtiNG ZIA 

Z1A,<SPR,L$PR> jZERO THE SPREAD RATINGS 
<SP)^,RB 

LE D,<$H LED,NSP> 

HFST, <HAGM,FPbS> 


XLCTH, XCTR 
IXDEL, XDEL 
«SDR, QtSDFPA 
iSRHA,88SRHAA 
iSRRS, OtSRRS^ 
tEDSf, BDEDSTA 
74 


INITIALIZE. SEARCH PATTERN 


^SEARCH DATA RE ADY I HTERRUPT 


^ENABLE INTERRUPTS 


FOC: 

FOCSUB 


. CALL 

: DSI 

LOli 
HOV 
HOV 
HOV 
. CALL 
_HOV_ 
EHI 
RTI 
. CALL 
CALL 
MOV 
RTI^ 

. CALL 

CHP 

BCT 

NOV 

ASL 

NEC 


L£D,<LKLED,FOK£Y> i FOCUS INTERRUPT FROH FOCUS KEY 

400_ _ i FOCUS SUBROUT INE 

40800 I IT HAY BE ENTERED BY ANOTHER INTERRUPT 

#FTIHE,FCHT i RESET FOCUS COUNT 

OtIEAPD, OIEAPD >SAVE OLD lEAPD AND SDFPA 
9DSDFPA, OSDFPA 

HFST, <HACH, ?PO$>iFIHD FSTEP 4 FLAST FOR THIS H AGHI F IC AT I OH 

„#F4h3, 0# SDFPA iSET UP INTERRUPT VECTOR 

4~ 


CFOC, OLDF 
IFREL, FSTEP 
#F430, 0#SDFPA 

CFOCi F 

F,OLDF 

F450 

FSTEP, N 

N 

N 


^CALCULATE FOCUS 


)S££ IF UE ARE GOING IN THE RIGHT DIR 
;BR IF SO 
iCHANGE DIRECTION 

iHOVE TUICE AS FAR IN REVERSE 
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, CALL 

IFREL. H 




HOV 

•F443, 9#$>FPA 




RTI 




F448^ 

. CALL 

CFOCi F 




CMF 

F.OLDF 

iSEE IF OTHER SIRECTIOH IS 

BETTER 


BCT 

F449 

iBR IF.SO 



cur 

FSTEP, FLAST 

;SEE IF STEP SIZE IS'SHflLL 

ENOUGH 


eiE 

F480 

iBR IF SO 



MOV 

FSTEP. H 

iTRY ft SMALLER STEP 



ASR 

FSTEP 




ADI) 

FSTEP. N 

)H=FSTEP+FSTEP.'a 



. CALL 

IFREL. H 





BR 

F420 



F443: 

HEG 

FSTEP 



F4 5’^ 

MOV 

F. OLQF 




. CALL 

IFREL. FSTEP 

jTftKE AHOTHER STEP 



MOV 

RTI 

#F460. 0#SDFPA 



F4i^T 

- CALL 

~ CFOC/ F ~ 





CHP _ 

F.OLDF 


. . - - . . 


BCT 

F45B 

>BR IF FOCUS STILL INCREASING 



MOV 

FSTEP..H_. 




BPL 

F47B 

•GET ABSOLUTE VALUE FOR TEST 



keq 

N 



F470: 

NEC 

FSTEP 




CMP 

HtFLAST 

j.TEST .FOR .LAS.T STEP. 

- - 


BLE 

F430 

iBR IF $0 



ASR 

FSTEP 

i 9ECREASE. STEF .81 ZE 

. . 


BR 

F43B 



F480: 

. CALL 

IFREL/ FSTEP 

iTAKE LAST STEP BACK 



MOV 

iF4S3/ BfSDFPA 




RTI 




F4901 

DSI 

4 




. CALL 

RHCI 




MOV 

OSDFPA.BtSDFPA 

iRESTORE SDFPA 



BIT 

*4/ OIEAPD 

iSEE IF INTERRUPT HAS ENABLED 



BEQ 

FSBB 

}BR IF HOT 



BIT 

#1989^ BIUTES 




BEQ 

F498 

iRE-EHABLE IT IF HOT !N SEARCH 



TST. 

BtSPRD 


. , 


BPL 

F49d 

)0R SPREAD NOT PRESENT 



BIT 

44880. BtSUR 




BEQ 

F498 

lOR SU 11 DOWN 



LON 

28889 

jTURH oh SEARCH HALTH LIGHT 




BR 

F330 

iBON'T RE-EHABLE THE IHTERRUPT 


F49S: 

EHI 

,4, 

jRt-EHABLE.IHTERRUPT . 


F58d: 

ENI 

489 




LOFF 

48389 

iTURH OFF FOCUSING LITE 



RTI 




J. 





JCVRQ; 

DSI 

1838 

f DISABLE ANY FURTHER XBD REQ 



. CALL 

LED. <LKLED. KR?CEY> 



GETK8 

M4 




. CALL 

PARAM. <NP. PAR. 

MAXHP. SPBUF> 



TST 

NP 




BEQ 

BKYEX 

iBR IF HO INPUT 



CMP8 

PAR.B'ft 




BHE 

KY18 

iBR IF NOT ABORT REQUEST 



. CALL 

APHA3E.<Z£R0> 




BR 

8KYEX 



ICYlBr 

CHPB 

PAR.t'C 




BHE 

KV28 

iBR IF HOT CALIBRATE MICROSCOPE 



. CALL 

IXREL. BIG 




. CALL 

I YREL. 8IG 

iffOVE TO LIMITS 



. CALL 

ZFREL. BIG 




. CALL 

XUAIT 




. CALL 

YWAIT 




. CALL 

FMAIT 

jUAIT FOR END OF MOVES 



. CALL 

IFCPR 

UNITIALIZE F.X. AND Y 



. CALL 

IXCPR 




. CALL 

lYCPR 




.CALL IXVABS. <XVAL< YVAL> iHOVE STAGE TO !•••, 1008 OR LAST POStTtOH 
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. ChLL 

IfRcL, FV.IL 

;HU<E FOCUS TO 3000 


. Ci^LL 

XUAIT 



. Ci<LL 

YWAIT 



. CrtLl 

FUAI7 



. CALL 

RMCI 


BKVEX: 

8R 

KVEX 


KY20: 

CHPB 

PAR. «'R 



SHE 

KY30 

iBR IF NOT RESTART REQUEST 


INCB 

RFLAG 

jSET restart flag in CALMS 

KY30 

CMPB 

PAR.«*E 



B:4Z 

KY33 

I? NOT EDIT REQUEST 


IHCft 

.EFLAG 

j.SET.EDLl-fLAG 


BR 

KYEX 


KY35: 

C«PB 

PAR. • ' F 



BNE 

KY40 

>BR IF HOT FORTRH REQUEST 


INCB 

FRFLAG 

iSET FORTRN FLAG 


BR 

KYEX 


KY4d. 

CHPB 

PAR. #'2 



BNE 

KY50 

iBR IF NOT ZERO SCAN QUEUE REQUEST 


CLR 

NSCAN 



. CALL 

LED. <$QLEB. NSCAN) 


nov 

tSRST. BtSRSTA 

jALLOU SEARCH START 


BR 

KYEX 


KY59: 

CHPB 

PAR. »'Q 



BNE 

KYSB 

iBR IF NOT QUEUE ADJUST 


HOV 

BiXCPRi XOFF 



SUB 

XVAL. XOFF 

.'STORE X OFFSET 


HOV 

ABYCPR. YOFF 



SUB 

YVAL. YOFF 

*STORE y OFFSET 


BR 

KYEX 



CHPB 

PAR.#'S 



BNE 

KY7a 

iBR IF NOT SCAN REQUEST 

KY65: 

INC 

NSCAN 



. CALL 

LED. <SQLEB. NSCAN) 


MOV 

*SPSRCH. BtSRSTB 

;SET UP SPIRAL SEARCH 


CHP 

NP. #4 

iSEE IF X AND Y HERE GIVEN 


BHE 

KY£X 

0R If nor 


. CALL 

IXYABS. <PAR+4.PAR46> 


EHI 

IA0« 



JMP 

roc SUB 


KV70: 

CHPB 




BNE 

KY89 

)t(N ir hot osbug request 


' MOV 

PAR+4. FPHASE 

(STORE PHASE NUMBER 


BR 

KYS5 

(GO IHCREHEHT NSCAN 

KY80: 

CHPB 

PAR.#^B 



BSE 

KYSna 

;BR IF NOT BANDED REQUEST 


MOV 

*-S. - SOURCE 

iSET SOU.’^CE OF -8 


BR 

KYEX 


KY93: 

CHPB 

PAR.^t^P 



BHE 

KYI G0 

iBR IF NOT PATIENT REPORT REQUEST 


iHce 

PFLAG 

iSET PREP FLAG 


. CALL 

OPAR«H,<ONE.P#lR, 

FPHASE) iWRTTE PREP PARAH 


BR 

K YE X 




. - ■ . 

- - - - - . 

KYEX* 

ENI 

1838 



RTI 



> 

SDR: 

TST 

8#SPRD 

fSPREAB DATA READY <SEARCH) 


BHI 

SPRES 

iBR IF SPREAD PRESENT 


MOV 

•1. FFLBG 

(RESET FOCUS FLAG 


DEC 

FCHT 

;DECRE!1EHT FOCUS COUNT 


BPL 

CNP 

<BR IF NO NEDD TO FOCUS 


BIT 

«£8d80.9»SPRO 



BEQ 

GHP 

iBR IF NOTHING TO FOCUS ON 


vIMP 

FOCSUB 

jGO FOCUS 

^ RT :■ 


TFL AL 



GPL 

riciroc 

iBR IF HO FOCUS THIS TIME 


JMP 

FOCSUG 

iGO TO FOCUS SUBROUTINE 

HOfOC. 

MOV 

P0. -<SP) 



MOV 

CSPO. RO 

iRO>CURREHT SPREAD QUEUE POINTER 


MOV 

<?f>XCPR. <R8) + 

(STORE X _ 


BPL 

XCK 

iBR IF X IS POSITIVE 

XYNG : 

UETKB 

MS 

(REQUEST CALIBRATION 


MOV 

<SP ) + , R8 
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XOK; 

LOflAG: 

RTI 

MOV 

BMI 

CMP 

BIT 

HCC 

MOV 

MOV 

4 

0#YCPR. <R0)+ „ 

XYNG 

MAGN. #83. 

LOMAG 

-4<R0> 

RB. CSPO 
<SP)+, RB 

)3ISSatE IMTERRUPT 

..lST.ORE Y - - •• 

iBR IF Y IS NEGATIVE 
I SEE IF SEARCH IS AT HI-HA6 

jIF at HI-HAC. FLAG AS ACCEPTED IN EB-LO 

GMPt 

INC 

. CALL 

CilP 

BG£ 

TST 

BGT 

N SP 

L£B.<SNLEB, HSP> 
. NSP^MAXNSP 
EBLO 
XCTR 
GS0 

iINCREHEHT 1 SPREADS FOUND 

iBR IF ENOUGH SPREADS FOUND 

iBR IF ANOTHER X HOVE IS OX _ 


BIT 

G49 

jBR if last HOVE UAS A Y 


NEC 

XDEL 

lEND OF ROU- REVERSE JDIRECTIOH 


. CALL 

lYREL. <YBEL> 

lAFTER MOVING BOON 


BR 

GSB 


040: 

MOV 

XLGTH/ XCTR 

jRELOAB XCTR 

C5di 

. CALL 

IXREL. <XBEL> 

jMOVE in X DIRECTION . . _ 

G68: 

BEC 

XCTR 



81$ 

»4. 04IEAPB 

lENABLE INTERRUPT - 


RTI 



SRHA: 

BSI 

4 

iSEARCH OR FOCUS HALT 


OTC 

«4/ OIEAPB 

< P RE V EH T E NS ftF XftC US- FRO B RESMLItfi S.R.CH 


. CfSiLL 

LED. <LKLEB, SHAK£Y> 


LOH 

20399 

iTURN OH SEARCH HALTED LIGHT 


. CALL 

RMCI 



RTI 



SRRS: 

£Hl 

4 

iS.EARtR 0R.fJ)C.U.S_8ESUflE_ .. _ _ 


. CALL 

LED><LKL£B. RSK£Y> 


LOFF 

20393 

(TURN OFF SEARCH HALTED LIGHT 


RTI 



essT, 

BSI 

104 

lEBlT START 


.. L.QF_/ 

...1.23 030 

. . .. 


. CALL 

LED. <LKLEB» ESKEV> 


. CALL 

NFST. <MAGN. FPOS> 


EHI 

403 

.ENABLE FOCUS INTERRUPT 


MOV 

#1. FFLAG 

JINITIALI2E FOCUS FLAG 


BIT 

41339. 9«L1T£S 



BNE 

EBLO 

jBR TO ED I T-LO IF. IH SEARCH 


BIT 

#493. BtLlTES 



BN£ 

ES40 

iBR IF 9H EBIT-LO 


CMP 

MAGH. «S3. 



8LT 

ELSTT 

iBR IF LO-MAG < IN EDIT-HI ) 


JMP 

EHRST 

iHI-MAC < IN EDIT-HI) 

ES43i 

CMP 

MAGH. #63. 

ilN EDIT-LO. T^ST MAG 


BLT 

ELRST 

iBR IF LO-MAG 


JMP 

EHSTT 

iHI-MAC. START EBIT-Hl 

i 

eBLO: 

CLR 

3CSP3 

iMARK END OF QUEUE 


BSI 

20 



CtR 

NSPAL 



CMP 

MAGN* 463. 



BLT 

ELSTT 

iBR IF LO MAG 


JMP 

EHSTT 

{START EB-HI IF HI MAG 

ELSTT: 

. CALL 

LEB.<SOLEB. NSPAL) 


LOFF 

1233 



LON 

403 

{TURN ON EBIT LO LIGHT 


NOV 

#ELAC. OtACSPA 

iACCEPT SPRB 


NOV 

#ELRJ. BiRJSPA 

{REJECT SPRB 


NOV 

#ELNX. 3«NXSPA 

iHEXr SPRB 


MOV 

#£LLA. A#LASFA 

iLAST SPRB 

£LR:>T. 

CLi^ 

3PN 

iSPREAD NUMBER 


MQV 

#SPA. CSPQ 



MOV 

R0. -(SP) 

iSAVE R0 OH THE STACK 

CBHXT; 

MOV 

CSPQ. R0 



LOFF 

48038 

iTURN OFF FOCUS LITE IN CASE FOCUS 


EMI 

483 

iUAS INTERRUPTED BY ARNL 


INC 

SPN 




. CALL 

LEB.<SNLEB. SPN> 
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LOFF 2088 

HOV <R0) + ,X 

BEQ JEDHI 

BPL EL38 

LON 2880 

E L 38: HOV (R9>*. Y 

HOV R0, CSPQ 

HOV <SP>«.R0 

-CftlL IXYA8S,<X/y> 

HOV tESDR/ 8iS8FP0 

HOV il.FFILAC 

E HI 4 

RTI 

JEDHI: JHP EDHl 

ESBR: EHI 109 

HEG FFLAG 

BPL ES29 

JHP FOCSUB 

£S28: DS‘l 4 

.C8LL RHCl 

LON 108898 

J_TI 

ELAC: HINT ACKEY lACCEPT SPRD INTERRUPT 

HOV CSPQ, R8 

TST -4<R0) 

BPL ELA29 iBR IF HOT PREVIOUBLY ACCEPTED 

iSOH* T COUNT I T TUICE 

ELA20: HOV 88YCPR.-rR0> ' iSTORE UPDATED V AND X 

HOV 0#XCPRi“<R0) 

NEC 8R9 SHAKE X NEGATIVE TO FLAG THIS SPREAD 

INC H3PAL 

.CALL LCD,<SQLED, NSPAL> 

CHP HSPAL/JU.HAX _ 

BG£~ EDHl ]BR IF ENOUGH FOUND 

BR EDHXT iGO TO NEXT SPREAD 

ELRJ: HIHT RJKEY ^REJECT SPREAD INTERRUPT 

NOV CSPQ. R0 

rsi_ 

BPL JEDHXT jBR IF HOT PREVIOUSLY ACCEPTED 

HEG *4<R8) SHARK IT REJECTED X* 

DEC NSPAL 

. CALL LED^<SOL£Df H8PAL> 

BR JEDHXT 

Air' H^iKEY iHEXT SPREAD 

BR JEDHXT 

ELLA: HIHT LAKEY 

SUB *4. CSPQ 

_ DEC SPN 

BEQ JEDHXT 

SOB 84>CSPQ 

DEC SPN 

£DXXT 

i 

EDHl ; ...HOV. . _ .<J5P ) + .j?9 i.R.ESLORE^ R8 

GETKB MS sREOUEST HI HAGNl FI C AT lOH 

EHSTT: LOFF 1488 

LON 209 sTURH ON EDIT HI LIGHT 

NOV *EHAC. BtACSPA sSET UP EDIT HI INTERRUPTS 

NOV «EHRJ> 88RJSPA 

NO V 8EHNX. 8»NXSPA 

NOV «EHLA. 88LASPA 

NOV 8EDEH. 88EDEHA 

EHI 208 

CLR NSCAN 

. CALL LEbi<S9L£bi HSCAN> 

EHR ST: CLR 

NOV #SPQ. CSPQ 

HOV R0, -(SP) jSAVE R0 

EHHXT: NOV CSPQ/R8 


iLAST SPREAD 

iHOVE BACK TO CURRENT SPREAD 

iBR IF fTr ST SPRE aT ni^UEOE 
{BACK UP ANOTHER SPREAD 


;ALLOU RJ DURING FOCUS 

iEDIT SPREAD DA TA REA DY 

;8R IF HO FOCUS THIS TINE 


iNOU DISABLE THE SDR INTERRUPT 
jRELASE NCI FRON CONPUTER CONTROL 

jturm on operator action light 


;3R IF END OF QUEUE 

iBR IF NOT ALREADY ACCEPTED 

iiNDlCATE ALREADY ACCEPTED 

7sAVE UPDATED Q POINTER 
iRESTORE R8 

/initiate liOTOR NOVE TO X,Y 


lE HABLE SPRD DATA READY INTERRUPT 
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eHA20: 


LOFF 

40000 


ENI 

4 00 

{ 

INC 

SPN 


NOV 

<RBy*s X 


BEQ 

JEDEND 

{ 

BNI 

EH 20 

{ 

TST 

(R 0 ) + 


BR 

EHte 

j 

LOFF 

2000 


«ov 

<R 9 ) + . Y 


BPL 

_ EH 30 . 

{ 

LON 

2000 

1 

BR 

E.H 4 ® 


. CALL 

NFST. <NAGN. FPOS> 

SUB 

XADJ« X 

{ 

ADD 

YADJ. Y 

J 

NOV 

R 04 cspo _ , 


NOV 

<SP)+. R 0 

{ 

. CALL 

LED/ <:SNLED. SPN> 


. CALL 

IXYA 3 S/ <X/ Y> 

1 

HOV_ . 

PA.- _ 


nbv 

Dl, FFLAG 


ENI 

4 

{ 

RTI 



: JHF 

.EDEND 


HINT 

ACKEV 

J 

NOV 

CSPQ/ R 0 


TST 

- 2 <R 0 > 


BPL 

EHA 20 

I 

DEC 

NSCAH 

} 

NOV 

0 #YCPR/-<R 0 ) 


HEG 

0 R 0 

L 

NOV 

0 tXCPR,-<R 0 ) 


HEG 

0 R 0 


INC 

NSCAH 


. CALL 

LED/<SQLED/ KSCAN> 

SUB 

* 8 PQ/ R 0 

i 

ASH 




BR IF -X (ACCEPTED IH EDIT LO) 


iTRY THE NEXT SPREAD 


j SETUP XADJ AND YADU 


iRESTORE Ra 


I INITIATE »OVE TO X/ Y 


j ENABLE SPRD DATA READY INTERRUPT 




|JJ5SE__=X_MJI -Y_ 


jFIKD LOC IH SPR 


3PR(RB) 

<SP>^. 

100000 

100 


ilNCREMEHT SPREAD RATING 


{RETURN FOR ANOTHER AC OR NX 


HINT 

NOV 

TST 

8 PL 

NEC 

DEC 

TST 

sue 

ASH 

CLRB 

CALL 

BR 


RJKEY i 

CSPQ. R0 

-<R0) 

EHMXT 

0R3 i 

HSCAN 

-<R0) I 

»SPQ. RO 

«*2.R0 

SPR<R0> { 

LEDV<SSLEDVHSCAH> 

JEHNXT 


;ED HI REJECT 


i’lAKE IT POSITIVE IF PREVIOUSLY ACCEPTED 
i'gET L0T'lli”SPYTFR^TH^^^ D 

{ZERO THE SPREAD RATING 


EHLA: HINT 

sue 

DEC 

BEQ 

EHL20. 'sue 

DEC 

BEQ 

TST 

BPL 

JEHNXT: JHP 


HXKEY 

NSCAN'/ HAXSC“ 

EDEND 

JEHHXT' 

TTk“ey 

CSPQ 

SPN 

JEHNXT 

# 4 VCSPQ 

SPN 

■JEHHXT 

0CSPQ 

EHL20 

EHNXT 


iBR IF ENOUGH FOUND 


jED HI LAST 


jBR if FIRST SPRD IH Q 
{flOVE BACK ANOTHER SPREAD 


{SR IF HOT -X 
{LAST -X 


CA LL L ED>< LKUED / £EK£ Y> 
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EDEHiD: 


EE3-5: 

EE48: 


71 

MOV R0, -<SP) 

LOFF 102208 iTURH OFF £8 HI ^CC LIGHT 

DS! 184 .'DISABLE ARHL AND SDR 

TST HSCAH 

BEG ££36 iBR IF HONE TO SCAN 

D_SJ _40 ^D ISAB L E EDIT START 

JSP r'S/SORTQ jSORT the oueue according to rating 

MOV *SPQ/ CSPQ 

CLP SPN 

.CALL BPARAtt. <L512. SOURCE. 0NE> iSAVE INFO FOR RESTART 

CLR XOFF 

CLP VOFF„ _ 

.CALL 'GNSfs iGET FIRST SPRE'aD TO SCAN 

BR EE40 

MOV tSRST. BtSRSTA jALLON SEARCH START 

MOV <SP)+. R6 ^RESTORE R6 

CLRO SFLAC 

RTI 


MOV 

R8. -<SP) 

jGET NEXT SPREAD TO 

SCAN S6RTE 

MOV 

CSPQ. R0 



MOV 

♦SPSRCH; 6#SRSTA 



EHl 

10 

iEHABLE SPIRAL SEARCH 

INC 

SPN 

iLOOK FOR FIRST -Y 


MOV 

<R0)+. XVAL 



BEQ 

GHEX 

jBR if END OF QUEUE 


MOV 

<R3>+. YVAL 



8PL 

EE.10 

iBR IF HOT ACCEPTED 


HEG 

XVAL 

iMAKE XVAL AND YVAL 

POSITIVE 

t \ . 
AD! 

> !■< 1. 

XVAL 

,hDD OFFSET 


ADI 

VOFF. VVal 



MOV 

R0. CSPQ 



. CALL 

IXVA8S. <;<VftLy YVAO ilHITIftTE MOTOR MOVE 

MOV 

OtPSU. -<SP) 



JSP 

PC, FOCSUB 

iSfaRT FOCUSING 


.CALL 

LED. < SNLED, SPN> 



MOV 

<SP)-^, R9 



^ T-: 

V 




• CAL.l 

...,AED. < 

IKLE.0 ^ SSaE 

:t> i SFiRA_L._se5Sj:ii 

CLP 

XCTR 


ilHITIrtLIZE SPIRAL SEARCH 

C LR 

YCTR 


. . ... 

CLR 

SPLEN 



MOV 

.#$P3DR..04SDFPA 


MOV 

f SRHA 

/ 0#SRHAA 


M0‘^ 

#SRRS 

. 04SRRSA 




EN! 

2 4 

.'ENABLE SEARCH 

HALT 4 RESUME 4 SDR 



RTI 







SPSDR: 

BIT 

#60000, 0#SPRD 

iSEE 

IF ANYTHING THERE 




BEG 

SGNP 

iBR 

IF NOT 





NEC 

FFLAG 







BPL 

SGHP 

;BR 

IF NO NEED 

TO FOCUS 




JMP 

FOCSUB 






SGNP: 

TST 

XCTR 







BGT 

SXOK 

iBR 

IF ANOTHER 

X MOVE IS 

OK 



TST 

YCTR 







BGT 

SVOK 

iBR 

IF ANOTHER 

Y MOVE IS 

OK 



INC 

SPLEN 

ilNCREMENT SPIRAL LENGTH 




MOV 

SPLEN. XCTR 

iRELOAD X AND 

Y COUNTERS 




MOV 

SPLEH. YCTR 







NEG 

SPSTEP 

iCHANGE DIRECTION 



S X OK : 

. CALL 

IXREL. SPSTEP 







DEC 

XCTR 







RTI 







’ s"'? okT~ 

. CALL 

EL . SP ST E P 







DEC 

y.ctr 







RTI 








SPLEM: 

SPSTEP: 

. yORD 
. WORD 

5 

YCTR : 

. UCRD ’ 


BIG: 

, UO.RD 

5 39 0 

XOFF: 

. yOPD 

. 

VOFF: 




i SPIRAL 'length 
j 0 R - 5 
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fflag 

.ycRu 

1 



iFLAG OSCILLATES FROM 1 TO -1 

OlEAPD: .U0R2. 

0 






OSBFPt^, ,'JORD 

9 






F, 

. UORD 

0 






OLDF: 

. UORD 

0 







. ..ycRB . 

0 . . 



....... 


■ - - 

SSKEV 

.WORD 







3HAKEY: . UORD 

2 






RSKEY 

. UORD 

3 






ESXEY 

. UORS 

4 






ACKEY 

.UORD 

5 






RJKEY 

.WORD 

6 






NXKEY 

, W0RJ3 

7 






LAKEY 

. UORD 

B. 






EEKEY 

. UORD 

.5*.. . - 






FOKEY 

. UORD 

18. 






KRKEY 

. UORD 

11. 






MAXSC 

. UORD 

388. 



jMAXIMUM 

TG SCAN 

HI MAX 

. UORD 

388. 



iM'iX I MUM 

TO ACCEPT IN EDIT-LO 

X : 

.UORD 







y r 

. UORD 

, - . 






FP03. 

. UORD 







HAGM: 

. UORD 







FCHT : 

. UORD 

15. +. *. 



/TIME TO 

FOCUS 

COUNTER 

IXDEL- 

. UORD 

-13. 



,1 initial. 

XDEL 

_ 

XDEL: 

. UORD 

- 13- 






YDEL: 

. UORD 

-13 






XCTR: 

. UORD 

75 »■ - . 






XLCTH: 

. UORD 

75. 






FVAL : 

. UORD 

-3099. 



/INITIAL 

FOCUS 

after CftLISRATION 

MSP: : 

...WORD 

9 




F S_PREjiS5 IN the au£.u_e - 

NSPAL: 

. UORD 

9 






M AXHSf 

» . UORD 




/ M AX I MU M 

SEARCH 

QUEUE 

LSPR. 

. UORD 

150. 



/LENGTH OF SPR 

IN WORDS 

L512; : 

. UORD 

512. 






ZERO; 

.'UORD 

8 






HP: 

. UORD 







' PAR; 

. BLKU 

20. 






MAXHP: 

. UORD 

23. 






SPBUFr 

bLkb " 

83. 







.MUST 

BEX 






Ml ; 

. ASCIZ 

Z' ENTER 

PAT 

IE NT 

ID / 



M2: 

. ASCIZ 

/ ENTER 

PAT 

lENT 

SEX / 




M3: A3CIZ / ENTER SLIDE ID / 

M4: .ASCIZ / ENTER REQUEST / 

M 5': ; AS C i Z / C H A H GE T O HIGH H AC N I F I C A T I OH /< Cft ) < L FV< t F > 

«S: .A3CIZ / PLEASE CALIBRATE THE MICROSCOPE /<CRXLF><LF> 

« 7 : . ASC I 2 / I LL ECAL I DV SE ARCH NO T S TAR t £ D><LF >< LF > 

MB: .A5CI2 ^ ENTER SOURCE CODE (HECATTVE FOR BANDED) / 

BL*C8 CHSTS + 7903-. jMAKE LENGTH CONSTANT 

. END 


.TITLE DLINE - 
CALMS VERSION 
DRUC = r?2-; 18 

BRST==DRWC*4 

YREC=l64iOb 

-;4 1 04 

G.SST = 1 S4_t_00_ . 

GSPC^l S4 ! 18 

G$XCP^U4U2 

CSYCP=164U4 

«RCMD=»4 

EftCND«6 

_EUCJLD^2 

RBlT^lb 
SUR==I77570 
LF= 12 


DISPLAY A LINE ON THE INTERACTIVE DISPLAY 

" i uVr D c oTn t 'register 

#BU$ ADDRESS REGISTER 
iSlATUS AND COMMAND REGISTER 
iLIHE REGISTER 
;ShtHPL£ .REGISTER 

.i CPAV SCALE ST ATUS /COMHAND REGISTER 
jGRAY scale pixel COUHT REGISTER 

iCl^AY SCALE. Jf..CURSOR. POSITION 

iCRAY SCALE Y CURSOR POS I T I OH 

jurite command 
lERASE COMMAND 

lERA SE/UR ITE COMMAND 

ifiEPLICATE BIT 


. H_C ALL . BI N2Q, . CALL. . PAUSE 


CA LL DWAIT ___ 
0#GSST 


DUAIT . TST 


iTEJST READY. eiJ 
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8PL 

BUAIT 

jBR IF MOT REABV 

.. . 

.RTS 

.. R5. 


i 

J 

CALL 

BCLEAR 


SCLEftR; 

« JSR 

R5z BUAIT 



IHC 

OtGSST 

.STORE CLEAR CONMANB 


RTS 

R5 


} 

i 

CALL 

SLI HE<LOC. Y. X, NS. 

REPL. ERASE) -1«ERASE ONLY 

i 

DLINE; 

JSR 

_R47 saver 



JSR 

R5) QUAIT 



MOV 

04CR5)^9IYREG 

jstartihc line oh sisplay. 


MOV 

#WSCHD/RI. 



BIS 

#490. 0#DRST 

;ASSUME WRITE. SET CYCLE BIT 


TST 

014(R5) 



BEO 

HOER 

;8R IF HO ERASE 


MOV 

♦ EUCMUt R1 

iASSUNE ERASE/WRTTE 


TST 

0 14<R5) 



8 PL 

NOER 

i3R IF ERASE/WRITE 


MOV 

#ERCMD. Rl 

iERASE DULY 


BIC 

^490. 9»BRST 

iCLEAR CYCLE BIT 

HOER: 

HOV 

O10<R5). R3 

iHS 


MOV 

012<R5)7 RZ 

iREPL 


BEO 

MOREP 

;BR IF HO REPLICATION 


BIS 

♦RSIT, 81 

i IHSEST REPLICATE BIT 


ASL 

R3 

iZ^HS 

HOREP: 

HEG 

r‘3 



MOV 

R3, 0#GSPC 

ISTORE PIXEL COOHT -H OR -2*H 

REP. 

MOV 

2<R5). 9#BRBA 

iLOC TO BUS ABBRESS REGISTER 


MOV 

06<R5)) 0#XREG 

iSTARTIfIG SAMPLE OH DISPLAY 


MOV 

ei0(RS). R3 

iSAMPLE COUNT 


INC 

R3 



ASR 

R3 



NEC 

R3 



MOV 

R3/ BfBRBC 

jstore negative word count 


MOV 

Rl. 9#GSST 

{STORE WRITE OR ERASE^URITE CONNANB 


INC 

OtBRST 

{ ISSUE GO 


TST 

R2 



BLt 

EMIT 

,b:< if done 


BIT 

#10. OiSUR 

{REPLICATE UNLESS SU 3 IS UP 


BNE 

EXIT 

{EXIT IF S« 3 UP 


CLR 

RZ 



JSR 

R5. BOAIT 

{WAIT 


INC 

0#VREC 

{STEP TO NEXT LINE . _ 


8R 

REP 

{CO DO THE RtPLICAflON 

EXIT: 

JMP 

RESTR 


i 

CALL 

SC TO SET UP T ri£ 

CURSOR 

SC.._: 

JSR 

SA.VER 



MOV 

#3) R3 


SCI0. 

NOV 

#32. . X 



NOV 

#32 . . Y 

{WRITE A HARK AT 32. 32 


. CALL DLINE/ <ZERO,y,X> TEH. OKE.ZERO> 

HOV #9. -R4 

S C 20_=_ A f ?' i 

.CALL BLINE. <ZESO.Y,X. CHE. ONE. ZERO) 
soe R4.SCZ0 

SOS R3. SC10 iREPEOt' TO HAKE iT'yHITE EHOOCH 

HOV »3, R3 

SC33= HOV #973. ,Y 

HOV *992. , X iURlTE A HARK AT 992.992 

HOV #9..R4 

SC40= CALL DLtHE. <ZERO. Y. X. OHE. OHE. ZERO) 

ADS ‘i2. Y ' 

SOB R4. SC40 

NOV #973;;x' 


. CALL SLIHE. <ZER0iY.X, TEH. ONE, ZERO) 


SOB 
. CALL 

R3. SC38 
TYPE. <M3.2ER0> 

iTELL OPERATOR TO MOVE CURSOR 


. CALL 

PARAM. <HP. PAR.F 

IVE> 


JSR 

R5. ULDR 

{CHECK FOR REQUESTED CURSOR MOVE 


BR 

SC50 

{CURSOR WAS MOVED 


MOV 

OtCSYCP. Y2 

{STORE Y ZERO ADJUSTMENT 
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78 


SC 60 : 

MOV 
.CftLL 
. call 
JSR 

77 

etcsxcPi xz 
TYPE, <»I4,2ER0 
PARAH, <HP, PAR 
es, UU>R 

4,122,518 
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jSTORE X ZERO ADJUSTBEHT 

> i«OVE TO LOOER RIGHT 

, P I VE > 


BR 

MOV 

3CS0 

B^CSYCP* yj) 

(CURSOR WAS nOVEO 


SUB 

Y24 YB 

(STORE Y DELTA 


MOV 

0IGSXCP/ XB 




SUB 

XZ, XB 



BIC 

#176000, Y2 



BIC 

#176900/ X2 



. CALL 

WPARAM/ <FOUR/ 

YZ, UITPH> (SAVE THE ADJUSTMENTS OH DISK 


JMP 

RESffi 


.?CA: : 

.CALL 

PPARAII. <HP- YZ, FOUR, l«TPH> i REAB ADJSTHHTS FROM DI SK 


RTS 

R5 



CALL 1 

CURSOR<YCP/ XCPC/ 

LIHEiSAMPI) 

CURSOR: 

: JSR 

R4/ SAVER 



MOV 

0ICSYCP/R0 



BIC 

#176000/ R0 



SUB 

Y2/ R0 

jabjust the reading 


NUL 

#960. / Rd 



DIV 

YB/ R0 



ADD 

#32./ R0 

iAY*<Y-Y2>*960/Vl)^32 


ASL 

R1 



CMP 

Rl/ YB 



BLT 

C20 



IHC 

pa. 

iRDONB UP 

C 

iiC’ 

ii#GSr:CP, 



31C 

tl7609», R2 



SU2 

X2/ R2 

iABJUST THE X READING 


MUL 

#960. / R2 



DIV 

XD/ R2 




A9S 

#32. / R2 

. 


ASL 

R3 



CMP 

R3 . XB 



BLT 

C40 



: :ic 


/.'^OUNi) UP 

C40: 

MOV 

R8r 02<R5) 

/STORE YCP 



MOV 

R.^i_0ijLR5i 

.lSTOR.E^„X.C£. .. . - - - - - 


BIT 

#4/ 0RS 



BEO . 

CEX . , 

.i.BR lP HOT .4 PARABtTERS . 


ASR 

R0 



IMC 

R0 

. 


MOV 

R0/ 06<RS) 

iLIN£«YCP/2+l 


ASR 

R2 



INC 

R2 



MOV 

R2, 010<R5i 

;SAMPaXCP/2*l 

CEXs 

JMP 

RESTR 


»CU: : 

SUB 

#2/ 0#GSYCP 

(CALL HCU TO MOVE CURSOR UP 


RTS 

RS 


nCB: : 

ABB 

*2/ OtGSYCP 

(CALL HCD TO MOVE CURSOR DOWN 


RTS 

R5 


«CL-V 

SUB 

#2/ OtGSXCP 

(CALL MCL TO HOVE CURSOR LEFT 


RTS 

.. R5 


«CR; : 

ABB 

#2/ OtGSXCP 

(CALL HCR TO HOVE CURSOR RIGHT 


-RIi_ 

R5 


i 

UDIR:.- 

MOV 

02<R5)/ PAR 

t C AL L y DLR (f. AR ) . . EXT ERNAL C.Alk 


BR 

UL20 





»CALL ULDR I HTERJIAL CAL,l 

ai.BR: 

TST 

HP’ 

iCHECK FOR 0/1/ D/ OR ft TYPED 



BH£ 

UL20 

jBft IF A LETTER HAS TYPED _ 


TST 

<R5)4 

/SET FOR NO TYPEIH RETURN 


RTS 

. ..R5 


UL 20 V 

CMPB 

PAR,t'U 



BME 

- Ut3S 

./BR IF HOT.A U. 


BEC 

OtGSYCP 

/MOVE CURSOR UP ONE STEP 

__ UL30: 

CMPB 

. PAR/#'B 



BHE 

UL40 



INC 

JJtGSYCP 

(MOVE CURSOR DOWN OHE. STEP . . 

UL43, 

CMPB 

PAR,»'L 



8NE 

UL50 
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DEC (»»C$XCP iilOVE CURSOR LEFT ONE STEF 


UL50: CI1P9 _ iOR,»'R _ 

BHE ULSO 

INC Otr.SXCP .MOVE CURSOR RIGHT ONE STEP 


UL$9: 

RTS 

R5 


; TYPE EH RETURN 

ZERO: 

. WORD 

O 4 9# 0# 0 




ONE: 

. UORB 

1 




FOUR; 

. yoRs 

4 




FIVE: 

. UORB 

5 




TEN; 

. UORD 

10. 




IHTPH: 

. yORB 

7 


iINTl PHASE 

NUHBER 

FAR: 

. BLKy 
X»PAR 

5 





Y»PAR+2 






HP=PAR+4 





. ML I ST 

BEX 




H3: 

. ASCI2 

/ MOVE CURSOR 

TO 

UPPER LEFT 

HARK/ 


. ASCIZ 
. EVEN 

/ MOVE CURSOR 

TO 

LOUER RIGHT 

MARK/ 

YZ: 

. UORD 

32 




VD: 

, UORD 

560. 




X2: 

. UORD 

32. 




XB: 

. UORD 

560. 





. BLKB 
. EMD 

DyAlT4>t50d>. 





TITLE HCISOe - HCI SUBROUTINES 
CftLHS VERSION 
nCALL COLL- . PAUSE 
XCPR== 164040 
YCPR==164042 
FCPR==t64944 
Sn$C>== 164046 

IEhP3=”J€'^950 

SPRi>==l64074 

FOCP»=t64076 

LITES==164134 

LESS»=164t36 



SRSTA-= = 308 
SRHAAa’i304 

iSEARCH START INTERRUPT ADDRESS 
jSEARCH halt 



3RRSA»»310 

EDSTA»=»314 

ACSPA=«^323 

RJSPA^-324 

HXSPA»«330 

LASPA««334 

iSEARCH RESUME 
iEDlT start 
iACCEPT SPREAD 
iREJECT SPREAD 
iHEX'T SPREAD 
iLAST SPREAD 



EDEHA*s340 

F0CA««344 

iESIT ENS 9 
iFOCUS 10 



kVRQA=«350 

SDFPA-»374 

iKBB REQUEST 11 

iSPROz-FOCUS SATA REABV INTERRUPT ASOR 



i 

;CURREHT ORIGIN IS 53508 



CHCI : : 
RHCI : : 

i 

BIS 448009. B«SnSC 

RTS ■ ■ R5 

BIG 449009. 04SNSC 

iCAPTURE HCI 
iRELEASE HCI 



RTS R5 

BIT #4000. e*SNSC 

BHE ■ XUArf ■ 

RTS R5 

TUAIT. BIT i200-OfSH3C 

BHE YUAIT 

RTS RS 

FUA IT: , SJT^ #19-Q»SnSC 

SHE ■ FUa'iT ■ 

RTS R5. 

IXYASS :.CALL XWAIT jCALL IXYABS(X-Y) TO INITIATE ASS NOVE 

•CALL VWAIT 

CALL CHCI 

NOV 02<'55)-X ' 

BPL IXY20 
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N£G 

X 

irtAXE X POSITIVE 


IXY20; 

MOV 

@4<R5>* Y 




BPL 

IXY30 




HEC 

Y 

#MAKE V POSITIVE 


IXY30I 

SU8 

Xi BfXCPR 

{INITIATE MOVE TO X/ Y 



sue 

Y.BiYCPR 




RTS 

R5 



i 

IXREL. : 

. CFfLL 

XWAIT 

{CALL IXReLYxDEL) TO IHITIATE 

X MOVE 


. CALL 

CMCl 




MOV 

B2<R5)*BtXCPR 




RTS 

R5 



lYRSLi : 

. CALL 

YUA IT 




. CALL 

CMC I 




HOV 

B2<R5)pe»YCPR 




RTS 

R5 


FOCUS MOVE 

IFREL; 

C^Ll 

PUAIT 

(CALL IFREL<FDEL) TO INITIATE 


. CALL 

CMC! 




HOV 

i?2< R5) , 04FCPR 




RTS 

R5 



c rqc j : 

MOV 

B^POCPp temp 

iCALL CFOC<F) TO CALCULATE FOCUS 


CLR' 

B2<R5) 




MOVB 

TEMP+1.Q2<R5) 




CURB 

TEMP+l 




ADD 

TEMP; i?2<R5) 

;FOCUS»Fl+F2 



RTS 

R5 




BIS 

9»SHSC 

(INITIALIZE XCPR 




RTS 




I YCPR* 

BIS 

«26p OiSMSC 


, ... 


RTS 

R 5 



IFCPR: 

BIS 

tl/ B#SMSC 




RTS 

R5 



— 

■jSR 

R4> S7T?1R 

rC'ATTT £ fi f fUD E . VALT” 



MOV 

O2<R5)*R0 

iCOBE TO RB 



ASH 

■il3.pRB 

(SHIFT TO HI ORDER 3 BITS 



MOV 

1M<R5)*RI 

iVALUE TO Rl 



BIC 

M77eB8. Rt 




A OB 

Rli R0 




MOV 

Ts. 9 #t:eds 

(OUTPUT DISPLAY 



JMP 

RESTR 




«FST=: JSR R4, SAVER .CALL HFST (HAGH. FPOS > 

nov eilEAPB. R0 rFLTR/MAGH POS REG TO R3 

HOV R0, RJ jALSO Rl 

ASH *-t8..R0 


8tC *177778. R9 iHASK OUT HASH 

nOV8 LEHS<R0) . HAGH VsfORE MACH 

CLR FSTEP jCLEAR TOP BYTE 

H0V8 FSTA3<R0). FSTEP (STORE FOCUS STEP SIZE 

HOVB FLTA3<R0>- FLAST (STORE LAST STEP J12E 

¥0VB XATAS<R0)7RZ ' .adjustment for noh-cehtraliTy 
MOV R2.XADJ 

MOVB YATAB<R0).R2 (ADJUSTMENTS ARE FOR 63 AND 188 
MOV RZ. YADJ (RELATIVE TO 40 

MOV MACN/02<R5) 

ASH *-13. .Rl (SHIFT FILTER CODE 

BIC ■ *177770. Rl 

MOV R1,94<R5) 

HOV Rl.FPOS 

CALL LED. <OHLED, «AGN> i D ISPL A Y MACHI FI C AT ION 

JMP RESTfi 


30RTO: ‘ 
$023: 

JSR 

HOV 

HOV 

MOV 

CLR 

MOV 

‘ R4j SAVER ■ 

iSPR, R3 
#S?0. R4 
HSP. HSR 
RB 

R3. Rl 

(SUBROUTINE TO SORT' THE QUEUE 

(R3 AND R4 POINT TO LOU QUEUE POSITIONS 

(THE CURRENT HI RATING IS 'MOVED HERE 

(INITIALIZE » SPREADS REMAINING 

(RO HAS MAX RATING 

(USE Rl TO EXAMINE REMAINING SPRDS 


MOV 

HSRpRR" 



BEQ 

SQEX 

iBR IF NO SPREADS REMAIN 

SO30: 

CMP8 

<R1)+/R0 

iEXAMINE A RATING 


BLE 

SQ40 

jBR IF NOT GREATER THAN MAX 


Move 

-CRD* R0 

1 STORE HEN MAX 


MOV 

Ri. RECl 

{SAVE Rl 
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INC 

Rl 




SQ48; 

SOB 

R2. SQ38 

i6R IF MORE TO EXAMINE 



DEC 

HSR 





TST 

R8 





BE^ 

SQEX 

<9R IF ALL HAVE BEEN SORTED 


MOV 

RECl. Rl 





riij 

)-! 1 . iCL 

iP.2 WILL 

HAVE POSITION IN 

SPO 


sue 

4SPR^ R2 





ASH 

42; RZ 





ADS 

#SPQ; R2 





MOVB 

8R1;R8 





HOVB 

0R3; ORt 

iSWITCH 

RATINGS 



MOVB 

R0; <R3) + 





HOV 

9R2. R8 

iSWlTCH 

X AND Y VALUES 



MOV 

OR4. <R2)4- 






Kii; (.U >'*■ 



... 


MOV 

8R2; R0 





MOV 

9R4; 0R2 





MOV 

R0; (R4> + 

>R3 AND 

R4 ARE UPDATED 



BR 

SQ2B 

jGo get 

TH|. NEMT highest 


SQEX: 

CLR 

8R4 

iHARK END OF QUEUE 



CLRB 

BR3 

iHARK END OF RAJIHGS 


J 

JHP 

RESTR 




MAGH: 

. WORD 

8 




f POS; 

. WORD 

0 




LEMS; 

.BYTE 

0 ; 4 0 , i 64 . * 

108.; 101.;4;63 

. . 9 


FSTAB: 

. BYTE 

1; 15. . 18.. 

8 . . 8 ■ . 25 . . 6 . . 1 



FLTAB: 

. BYTE 

1 . 8 . ; 5 . ; 2. 

2.. tS. .4. 1 



XATAB; 

. BYTE 

0; 0. 8i 5; 0. 

9.9. ; 8 

iXADJ FOR 63 AND 

tee REL TO 49 

YATABi 

. BYTE 

8; 8. 8. 3; 8. 

8.2.9 

i YADJ 



XABJ* » . WORB . , 

YABJt. .«ORi 

FSTEPt . . WORD 

FLAST: . .WORD 

. WORB a 

V : , WO R D 0 

SNLEB. ; .UORB 8 iCOBE FOR SPREAD HUMBER DISPLAY 

SQLEDr: ". WORD I "iSCAH QUEUE 

AQLED; : .WORD 2 ^AHALYStS QUEUE 

OrtLED:: .WORD 3 i OBJ MACH 

HQLED: .WORD 4 iHARD COPY QUEUE 

LKLED. ; .WORD 5 " ' iLASt KEY 

TEMP; . WORD 8 

HSR; . WORD 

RECl; .WORD 

.9LKB CHCI+1300-. iMAKE LENOTH CONSTAHT 



TITLE RPARA.n READ AND WRITE PARAMETERS UHDER CALMS 
. MCALL CALL 

aUFSIZ^S^ - ' - 

APHASE .MOV Q2<RS>. MPHASE lASSIGN NEXT PHASE CALL APHASE<N) 

RTS R5 


yPARAil ;JSR R4.S.^VCR j C At L WPAR AH ( H P « P AR « PNUM ) 

MOV O2XR5rrR0“^ ' -mp* 

MOV 4(RS>. WP294t2 «PAR LOCATION 

ftOV^ 86(RS>,Rt tPHUH 

NOV Rl^PREC 

ASL Ri 

ADD #MPTAB*2/R1 


-MOV 


WP23: CALL WRITE. <PHVB*PR£C* > iWRITE THE PARAHETER DATASET 


JMP RESTR 



ADD #HPTAB-2.R8 


rCALL RPARAM(MPi PAA, HPHAXT. PHU«T> 

jBR if HOT 4 PARAMETERS 
lUSE PHeW FROM PARAMETER" LIST 
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RP20: 

RP40: 

RPERR= 


8Ea RP40 /SKIP THE REAB IF HP»» 

CHP^ 8R»-,06<R3) 

BHl RPERR fBR IF HP GT NPHAX 

4(R3)i RP2»+14 

MOV eR0,PMVS+BUFSI2 /SET OP TO REftD HP BORBS 

A n iuit ^ ^ — - - ^ - - - --- ■ — - ■ ■— 

Hstr rnVo^^tlf vT Z 

. C0LL REftB, <PMV8. PREC. IHSEX, . -. > iREAB THE PftRAHETER »S 

JHP^ RESTR 

HOV PHUH. -<SP) >TOO MANY PARAMETERS 

MOV #1779, -<SP) 

TOT /PRINT F37B 


/BR IF HP GT HPHAX 


PREC, . UORB 
INDEX: WORD 

. END 


TITLE SCAN - SDS DATA CAMERA DRIVER 

i CALMS VERSION CALL' ScTHraONITTFlLPExT" 

/THIS VERSION OSES MVIO IN DOUBLE BOFFERIHC 24 
i TV VERTICAL LINES AT A TIME FROM CAMERA TO A DISK DATA SET 
: IH HOH-IHTERROPT MODE. 

/THE PICTURE IS DISPLAYED OH THE CRAY SCALE. 

iSECTO_R_HISTOGRAMS ARE GEH£RA7ED_AS. JHE_.UXEL.S 

/THRESHOLDS ARE FOOHD AFTER EACH GROUP OF SECTORS AMD TYPED 
iOOT BHILE THE NEXT ROB OF SECTORS JS SCAHHED IF SUIIS OP. 

/THE SCAN AREA IS VARIABLE U I TH A MAXIMUM OF 512 LINES AMD 
j 400 SAMPLES PER LINE, . . 

i 

-CLO BL OPEH ,C ET, PU T, C LOSE, PAR AN, OPRl NT, PLAflEL,gAR MF 

.CLOBL AF1LE,SCAH 

.MCALL . PAR AM, .EXIT, . CVTDT, . CALL, ,.PAUS-I ...... 

. PAR AH 

.HLIST...BEX - - - - - 

/ 

L F=12 

CR=15 

G0ND>lS402e . - - 

STAT-164020 

X_REC»164022 . . . 

YREG>1S4924 

2REG = 16402 6 - 

X,IR£G»lS4e38 /X JOYSTICK REGISTER 

. yjfiEC=l$4.832 jY .JOYSTICK RECI-SIER .. 

$ 

SCAN: MOV R5, -<SP) /SAVE R5 

MOV 2(R3), SI 00 + 10 /CALL SCAN (DUNIT, FI LPEX) STORE DUNIT 

_MOV 4 ( R 5J , S L09± 12 /STO R E CALMS DATA SET NAM E 

HOV #2. UIC /AHD' UIC OF 12,23 

siaa= .call .. AFILE,<BOF, .-..0IC/UIC7. I.ASSIGH DEFAULT FILE.. 

•CALL OPEN, <8UF, SIZE. ONE, ONE, LNAME> /OPEN DISK DATA SET 

S182. .CALL TYPE, <H1,ZER0> 

TFCI. BIT #400, 0DIEAPD /TEST IF STILL FOCUSING 

BE6 ^TFC_I_ / BR IF SO 

• CALL RttCI /RELEASE MCI TO OPERATOR 

. .CALL, PARAM, <NPAR, PAR, HPMAX.T . / REA.D .L.A8E.L . 

HOV SOURCE, L+12. /MOVE INFO INTO LABEL 

MOV PAHUM, L+14. 

MOV SLHUH,L+1S. 

- MOV OSXCPR .L + 18. 

MOV e»YCPR,L+29. 

.CALL OUTCON- <SOORCE. L+Ol . , T«0> 

.CALL NVL, <PANUM, L+D2. , LPANUN> /MOVE PANOM INTO LABEL 

MOVB PASEX,L+t03. 

. CALL MVL, <SLNUM. L+1I2. , LSLHOM> 

TSJ HPAR _ _ . 

BE6 SI06 ~ /BR IF HO PARANETERS (USE OLD LABEL) 

CHP HPAR. #2 . . 

Bits S104 /BR IF HOT TVO PARAMETER ttORDS 

CMP #*P0, PAR . 

SHE HOTPO iBR IF HOT PRINT 0 REQUEST 

...C_ALL_ _PRlHTB,<L+72. ,_SPR, SPQ^ 
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JHP 

S102 




NOTPQ- 

CMP 

#’A . PAR 





BNE 

NOTAB 

iSR IF HOT ABORT 




. CALL 

APHASE- ZERO 





JMP 

S30B 




NOTAB. 

CMP 

t . PAR 





BHt 

S103 

iSS IF NOT ZERO QUEUE REQUEST 




CLR 

NSC AM 

j2ERO HSCAN 




. CALL 

APHA5E, ZERO 

;AHJ5 ABORT THIS SCAN 




JMP 

SEXIT 




SI 03: 

CMP 

# PAR 





BNE 

S104 

i_SCAN IF EX WAS NOT TYPEB 






JMP 

SEX IT 




S134: 

CMP 

♦ •BS. PAR 





BNE 

£103 

jBR if NOT DUMMY SCAM 




INC 

BFLAG 

iSET DFLAC 




3R 

S 1 3 S 




SI 05, 

Ma^ 

- 1PAR3UF..81_. 




... - — 


NOV 

#L+217.. R2 

iADD ANOTHER LABEL «ITH NTSC IB 




MOV 

#S9 . , R3 

iHAX OF 69 characters .IN LABEL . 



«L AB r 

Move 

CRl Re 





CMP 

R0/ iCR 





BEQ 

ELAB 

!3R if end of LABEL <CR) 




Move 

R0, <R2> + 

{STORE LABEL CHARACTER 




SOS 

R3. MLAB 





BR 

S106 




ELA3: 

MOVB 

#40. <R2>+ 

iPAD REST OF LABEL WITH BLANKS 




SOB 

R3. ELAB 




S i 08 : 

JSR 

PC. PPAR 

.PROCESS PARANETEBS 




. CALL 

OUTCOH.<XCPR 

. L+127. . FOOR> 




. CALL 

OUTCON.<YCPR 

. L-M35. . FOUR> 




. CALL 

MVL. <L-H34 . . 

M2tlS. .POUR> 




. CALL 

hVL.<L+132. p 

M2-»22. .r0UR> 




. CALL 

TYPE. M2 





, CVTDT 

#9. #14^145. 

.STORE DATE IN LABEL 




. CVTDT 

#1. #L+155. 

{STORE TIME IN LABEL 




TST 

DFLAG 





BNE 

S108 

.NO OUTPUT LABEL IF DOHNY SCAN 




. CALL 

PLABEL. <8UF. 

SPAR,L> .OUTPUT LABEL 



SI 08; 

. CALL 

OCLEAR 





. CALL 

DCLEAR 

{CLEAR THE GRAY SCALE 



SI 10J 

CLR 

LINE 

{LINE=9 




MOV 

SL. X 

{INITIAL XCOUNT 




CLR 

AfCOMO 

{DISABLE PIXEL IHTERRU9T 




CLR 

GY 

{CLEAR GS LINE COUNTER 




MOV 

#TTAB. TX 





MOV 

#BTAB. ex 





JSR 

PC. THEAD 

{TYPE HEADING 




CLR" 

SHUM 

{SECTOR NUM8ER-9 



LSEC; 

MOV 

LPS. SCTR 





. CALL 

ZIA-<HIST, Hliia> (ZERO HISTOCRAH COUNTS 



EFLIH: 

MOV 

SS. Y 

{INITIAL Y 




MOV 

X. OJXREG 

{SET LIME COUNT 




INC 

LINE 

{INCREMENT MVIO LINE COUNT 




TST 

DFLAG 





BNE 

SH3 

{BR IF DUMMY SCAN 




. CALL 

PUT, ■'BUF. LINE. INIEX> iPREPARE STORAGE OF NEXT 

TV 

LINE 

SI 15: 

MOV 

BUFF, P.3 

jlNIT BUFFER POINTER TO BUF+HS-t 



Or UH; 

ADD 

IHOEX. R0 

{SET POINTER FOR NEXT LINE 




MOV 

#HIST. R4 

{R4 HAS LOC OF HIST 




Mbv" 

ISPS. S3 

{INITIAL SAMPLES PER SECTOR 




MOV 

V. OtYREC 

{SET PIXEL COUNT 




MOV 

tCOMD. R2 

jA<COMD'3TATUS REGISTER) TO R2 




MOV 

#3. BR2 

iGET FIRST PIXEL OF THIS FIELD 




TSTB 

0R2 





BPL 

. -2 

jUAIT UNTIL READY 




MOV 

#300. 0»PSU 

iSET PRIORITY 6 FOR THE REST OF 

THE 

"FfELD 


BR 

MOVB 




SECTOR: 

MOV 

SPS.R3 

iR3^SAMPL£S PER SECTOR 



PIXEL: 

MOV 

#3. 0R2 

{PIXEL COMMAND 




JSTB 

AR2 





EP. 

.. o 

,UAIT UNTIL RFADY 



ilOVD: 

NO': e 

li#2k£u. Rl 

(HOVE PIXEL INTO BUFFER 




SHE 

NOTiE 

{BP IF HOT ZERO 
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IMC 

Rl 

i CONVERT 0 TO 1 

HOTZE: 

CrtP 

Rl/ *12>. 



6 HE 

H0T127 

jBR if hot 127 _ _ 


HOV 

»126. . Rl 

1 CHANGE 127 TO 126 

H0T127 

. :iOVB 

Rl. ORB 

.STORE PIXEL IN BUfFER 


5TC 

^ U 71 



0BD 

R4, Rl 

iHIST ♦ PIXEL VALUE <B. 2. 4. . . . «2> 


IHC 

ORl 

ilHC COUNT FOR THIS VALUE 


SUB 

Rd 

»BEC1.EHE«T POUtT£S - 


SOB 

R3/ PIXEL 

iBR IF MORE PIXELS IN THIS SECTOR 


ABB 

#128. .R4 

, i.STEP. HISTOfiRAfl.P.OI.HIER.. 

HTESTs 

CHP 

R4. #HIST+1924 

iHIST+NC*l28 


BLp 

_ SECTOR 

iBR IF MORE SECTORS 

i 

BJT 

♦ 1, V 

iTEST FOR EVEN OR ODB FIELD 


ecT 

OFEHB 

iBR IF END OF OSD FIELD 

EFEHD: 

CLR 

B4PSB 

iRETURN TO PRIORITY 8 AT END OF FIELD 


IHC 

Y 

iSET Y FOR OBD FIELB PIXELS 


1ST 

CY 



BEQ 

EFHOV 

iBR IF FIRST LINE 


BIT 

tie.BisyR 



BKE 

EFHOV 

iFOR QUICK LOOK. URITE EVERY OTHER LINE 

EFCALt: 

. CALL 

BLIHE, <■ . CY- 

GX/NS/ REPL- ZEROV . .i REPLICATE _f REV 


IHC 

GY 


EFHOV: 

HOV 

BUFF. R9 



BEC 

RO 

iSET BUFFER POINTER TO 8UF+HS-2 


JHP 

OFLXH 

iGO GET ODD FIELD PIXELS 

0FEH3I, 

CLR 

eiPSB 

iRETURH TO PRIORITY 8 AT END OF FIELD 


ABB 




MOV 

R0/ OFCALL+6 

iSTORE START OF CURRENT LINE 


HOV 

RB- EFCALL+S 

ilH BOTH CAULS TO BUHE . . 

OFCALLr 

. CALL 

DLIHEi <. - GY/ 

GX.NS. REPL. 2ER0> iVRITE TO CRAY SCALE 


IHC 

GY 



BIT 

#19/BtsyR 



BEQ 

54 

iBR IF. HOI OUICK. LOOK 


IHC 

GY 

iSTEP GY AGAIN 

» .. 

IHC 

X 

iINCRENEHT.X-<LIHE..COUHT). 


BEC 

SCTR 



BGT 

NOTES 

iBR IF HOT EHB OF SECUHfL 


JSfi 

PC/ THRESH 

iCALC THRESHOLDS FOR THESE SECTORS 


CMP 

X/EL 

. . 


BGE 

FIM 

f3r if FIHISHEB 


JHP 

LSEC 

;G0 START. NEXT LINE SECTO.R 

i/EFtlN. 

JMP 

EFLIH 


HOTES= 

CMP 

- 

^JIEST FJ3R^J;HIL ... 


BLT 

JEFL2H 

;G0 START NEXT LIHE OF PIXELS 


JSR 

PC/ THRESH 

jCALC, THRESH FOR LAST SECTORS 

FIH: 

MOV 

BTBATA/ Rl 



TST 

BFLAG 



BNE 

S292 


CPUT: 

. CALL 

PUT/<BUF,ZERO/ 

IHBEX) 


MOV 

#BUF/R2 



ABB 

INBEX/ R2 



MOV 

NS/RS 


«TD: 

MOVB 

(Rl )+/ CR2>4 

iHOVE TDATA TO BUf 


SOB 

R3/MTB 



CMP 

RU tTBATA42GS. 



BLO 

CPUT 

iBR IF MORE OF TBATA TO OUTPUT 

S2«2tS3 

eoi 



SEXIT. 

. CALL 

CLOSE/ BOF 


T$TR5: 

NOV 

<SP>+/ R5 

^RESTORE RS . 

RTSi 

RTS 

R3 





P10: 


Pt5: 


. CALL 

TYPE/ <M3- ZERO 

iJSR PC.PPAR 

. CALL 

PAR AM/ <HPAR/ PAR- 

HPHAX> 

HOV 

#PAR/ Rl 


CLR 

HR 


CLR 

HC 


TST 

HPAR 


BGT 

Pt5 

jRR IF MORE PARAMETERS 

JMP 

P150 


MOV 

(Rl )+/ R0 

;R0=PARAMErER WORD 

MOV 

4NX/R2 


MOV 

♦ KEY/ R3 


CMP 

RO- <R3>4 



P20: 
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ecQ 

SOB 

CUP 

BGC 

P58 

R2« P2B 
NPAR, #4 
P3B 

iftR IF PARANETER EQ KEYVOR* 
iBR IF MORE KEYHORDS 

VHOt A kEVWftD. HAYBC AREA IS SPECIFIES 
iBR IF 4 BORBS LEFT 

P25: 

.CALL 

TYPE. H4 

iPARAHETER ERROR 



PPAR 


P30: 

CHP 

R8. tHAXNL 



BG£ 

P25 

3BR if SL TOO LARGE 


HOV 

fte. SL 



BLT 

P25 

iBR IF SL TOO SHALL 


HOV 

<Rn-^.RB 

i£L 


BLC 

P2S 

iBR IF EL TOO SHALL 


CHP 

R8/ 4NAXHL 



BGT 

P25 

iBR IF EL TOO LARGE 


HOV 

R8. EL 



SUB 

St. R8 



6L£ 

P2S 

iBR IF ML TOO SHALL 


HOV 

R8. NL 

iHL*EL-SL 


HOV 

<R ! M 

iSS 


BLT 

P25 

iSR IF SS TOO SHALL 


CHP 

R3. BHAKHS 



OG£ 

P23 

iBR IF SS TOO LARGE 


BIC 

«t. R3 

iHAKE SS EVEN 


HOV 

R0. SS 



HOV 

<Ri>^. RB 

i£S 


BIC 

#1. RO 

iES HOST BE EVER 


8LE 

P25 

iBR IF ES TOO SHALL 


CHP 

RO. tHAXHS 



BGT 

P25 

iOR IF ES TOO LARGE 


SUB 

SS# R8 

iHS«ES-SS 


CLE 

P25 

IBS IF HS TOO SHALL 


HOV 

R0. HS 



HOV 

«S12. . R3 



CLP 

R2 



BIV 

R8. R2 



HOV 

R2. HLR 

iHLR»512/MS 


AOS 

«BUF, R9 



BEC 

R8 



HOV 

R0, eOFF 

tBUFF=‘BUF*HS-l 


SUB 

#4. NPAR 

lHPAR-HPAR-4 


BR 

PIB 


P50: 

TST 

<R1)^ 

(STEP OVER SECOHB SORB 


ABB 

*NK^HK-2.R3 

itOC FOR THIS KEVUdRB 


HOV 

BR3.PC 

iCO THERE 

P6d: 

HOV 

<R1>«. BPER 



HOV 

f 188. . BPER 



SUB 

BPER. BPER 

iBPER-199-BPER 


SUB 

«3. HPAR 

iHPAR«HPAR-3 


OR 

Pi8 


P70: 

HOV 

9R1.BBEG 

iBBEG 


HOV 

<R1>^ BICSI2 




BKS12 



dEi * 


;SK:SI2*~^ieEG>2-l 


ilOV 

#62. * BT3I2 



sue 

BICSI2. BTSI2 

iBTSI2*62-BKSI2 


OR 

P63 


P30: 

HOV 

<Rl)4. hr 

iHR 


BR . 

P63 

. 

P9«r 

HOV 

<R1 )♦. HC 

iHC 


BR 

P63 


P’J5: 

IHC 

OFL.AG 

iOUlCK LOOK <UHILE SCAMHIMG) 


3 US 




SR 

Pie 



HOV 

91YJRE.G. .JPARf 4 

iJOVSTiCiL. 


HOV 

Otx JftEG/ iPAR 

iSTORE SL AHB SS 


BIC 

1177008/ JPAR . 

. . . . . _ ^ - . 


. CALL 

TYPE. <H5.2ER0> 

iREQUEST HOVE TO LOUER RIGHT 


. CALL 

PARAH. <HPAR.PAR. 

HPHAX> 


HOV 

8tYJREG. UPAR46 

i STORE ES 


HOV 

BIXJREC. JPAR42 

jEL ^ 


BIC 

#177080/ JPAR+2 



HOV 

4UPAR/ R1 



HOV 

<»1 >+/ RB 



HOV 

#4/ HPAR 




vJHP 
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iGO PROCESS AR£^ PARAMETERS 


P159; 

TST 

HR 


BGT 

PISB 


NOV 

HL. RO 


ABB 

132./ R8 


ASH 

1-6/ RB 


BGT 

P155 


INC 

RO 

PI 55: 

NOV 

RO/ HR 

P1S8: 

TST 

HC 


BGT 

P170 


NOV 

HS/ RO 


ABB 

132./ RO 


ASH 

1-6/ RO 


BGT 

PUS 


INC 

RO 

PUS: 

NOV 

RO/HC 

PI 70, 

NOV 

NL/ R1 


ABB 

NR/ R1 


DEC 

R1 


CLR . 

RO 


DIV 

NR. Re 


INC 

RO 


6IC 

#1/ RO 


MOV 

_ RO/ LPS 


NOV 

NS/ Rl 


CLR 

. RO. 


BIV 

HC/ RO 


BIC 

11/ RO 


NOV 

RO/ SPS2 


ASR 

RO 


NOV 

RO/ SPS 


NOV 

HC/ R1 


DEC 

R1 


NUL 

SPSiRl 


NOV 

NS/ RO 


ASR 

RO 


SUB 

Ri/ RO 


NOV 

R0/ ISPS 


NOV 

NC/ Rl 


ASH 

17/ Rl 


ABB 

IHIST/ Rl 


NOV 

Rl/ HTEST+2 


sue 

1128. / Rl 


MOV 

Rl/ T35+2 

i 

RTS 

PC 

$ 

i 

thresh" 




NOV 

•MSG43/T50 


NOV 

1MSG46/ T60 

105: 

MOV 

JHIST+3dS. 

TIB: 

JSR 

PC/ SMOOTH 



JSR 

PC/ TSUB 


NOV 

BPER/ Rl 


NUL 

BATA/ Ri 


NOV 

BPER/ R3 


NUL 

BACK/ R3 


ABB 

R3/R1 


ABB 

ISO./ Rl 


“CLR 

RO 


DTV 

1109. / RO 


NOV 

BAtA/Rl 


SUB 

BACK/Rl 


CHP 

Ri/10. 


BGT 

T20 


NOV 

6KSI2/ RO 

J20: 

TST 

BATA 


BGT 

t30 


MOV 

1127. /RO 

T30: 

TST 

BACK 


BGT 

T40 


CN'P ^ 

tBTAB 


6EQ 

T48 


;OOHE UlTH PARAMETERS 
iBR If HR UAS A PARAflETE.R 


i8R If HL GT 3t 
"iHR»l 

jNR»<Ht+32>/S4 


;8R If NC UAS A PARAMETER 


iBR If NS GT 31 
jHC»1 

iHC«(HS+32)^64 


i«AKE LPS EVEN 
. i UP_$r_<HC + HR- 1X/.H8 


iHAKE IT EVEN 

jSPS2«HS/NC SPS for 2 F1EL5S 
Ts^ f or“one" F I elb 


iISPS^HS/2-<HC-l)*SPS 


|H1ST^MC*128 


i H13T +<MC-l)^l28 


j f I N D BACK AH g DATA 


iITHR»<BPER«0ATA+<iee-BPER)^BACK+5B)/18B 


VCHECK FOR small BETBEEH B AMB B 

jbr if ok 

jITHR»0BEG/2 <UNBIV10EB NUCLEUS) 


iBR IF B ACK OK 

iSEE IF FIRST SECTOR 
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MOV 

BX. R1 

lUSE SACK FROM PREVIOUS 

SECTOR 


MOV 

“(Rl). BACK 



T48: 

MOV 

R0. 9TX 




MOV 

R0. ITKR 




TST 

BATA 




BGT 

T45 




CLR 

ITHR 

jITHR>9 if ho SATA 


T45: 

MOV 

BACK. 09X 

iSTORE IN TJAB AMD BTAB 



ABB 

#2. TX 




ADD 

#2. BX 

ilHCREHEHT POINTERS 


1507 

. CALL 

OUTCOH.<ITHR. 

,FOUR> 



ABB 

47, T50 + 19 



T€0t 

. CALL 

0UTC0N.<3ACK. 

.THREE) 



ABB 

#7, TS9 + 10 




SUB 

#128. . R4 




CMP 

R4. #HIST 




BHIS 

T19 

i8R IF MORE HISTOGRAMS 

TOTMALViE 


SUB 

#6. T69+10 




CLR9 

9T69+19 




IHC 

SHUM 




. CALL 

OUTCOH, <SXUM, 

M3 + 2. THREE) 



ABB 

HC. SNUM 




MC 

SHUM 




MOV0 

♦*-.N0+3 




.CALL 

OUtCOH.<SHUn. 

M0+5. TOO) 



BIT 

«2. 0#$UR 




BEQ 

T78 

iBR IF S« 1 BOUH 



. CALL 

TYPE. M0 



tToT 

RTS " 

PC 




i 

f 


i 


THEABi 

NOV 

HC. R1 


MOV 

_tMSC.^R2 

■ HIO : 


4SHEAD, R3 


nov 

#7. R4 

TH20: 

MOVB 

<R3)+. <R2)+ 


S03 

R4. TH20 


SOd 

RI. TH10 


CLRB 

0R2 


MOV 

#6. R4 


MOV 

#113. R2 


MOV 

#rHSAB. R3 

TH53: 

MOV 8 

<R3>+- (R2)4 


SOB 

R4. TH39 


BIT 

#2, BtSUR 


BEQ 

TH70 


. CALL 

TYPEi M6 

TH70: 

RTS 

PC 

SMOOTH 

: MOV 

R4. -<SP) 


nov 

4HIS+2.R3 


MOV 

t€2./ R2 

SM23: 

MOV 

(R4)>. R9 


ABB 

0R4.R0 


ABB 

2(R4). R0 


MOV 

R0. <R3) + 


SOB 

R2. SM20 


MOV 

<SP)+. R4 

— 

RTS 

PC 

J 

i 

JSR 

PC. TSUB 

TSUB; 

MOV 

#H!S. R6 


MOV 

tie.Ri 


MOV 

BKSIZ. R2 


MOV 

#HIS+2.R3 

TS40: 

CMP 

Rl. <R3> + 


BGE 

TS45 


MOV 

-<R3). Rl 


MOV 

R3. R0 


TST 

<R3) + 

TS45: 

SOB 

R2. TS49 


SUB 

«HIS. R9 


MOV 

R0. BACK 

i 

MOV 

#HIS. R0 


iJSR PC.THEAB SET UP HC HEADIMCS 


niOVE ft SECTOR HEftSIHC TO «SC 
;BR IF MORE SECTORS 


;FT«ftL HEftBIHG 


iBR IF SU 1 SOWN 


iJSR PC. SMOOTH SAVE R4 


i H I S ( I ) =H_I ST < I - .1 ) +H I ST <1 > +H I S T < I + 1_> 


iR0*SACK»HIS+9 

1 ^1® 

iOACiC RANGE IS NOMINALLY 2-48 


;3R IF MAXI GE HIS<I) 
irtAXl=*HIS( I) 

;R 05 HIS + I 


iBR IF MORE TO SEARCH 
jSTORE back 
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MOV 

#4/ R1 





MOV 

DTSI2. R2 

iSSTfi, RANGE IS HOM.l 

MAUtY FROM 

58-124 

TS59i 

CMP 

Rlv (R3) + 





BG£ 

TS60 

iGR IE RAX GE HIS<1 

) 



CAP 

-'2<R3).-4(R3) 

iLOOK FOR RELATIVE 

MAXIMUM OH 

LEFT Sli)E 


BLT 

TS60 

iSR IF HOT 




MOV 

-<R3),R1 





MOV 

R3. R9 

+ I 




TST 

<R3) + 




TS6SJ: 

SOS 

R2/ TS50 





sus 

«kis/ro 





MOV 

Rd. DMTM 

iSTORE BATA 




RTS 

PC 






MAXHL» 

512. 



MAXHS» 

488. 



NJC»6 



fCEV: 

. ASCII 

.^BPBBHRMCQLJ / 

... 


. yORB 

P69. P78. P68,P98 

/P95fP188 

SLt 

.UORB 

e. 

> STARTING LINE 

£Lt 

. UORB 

ses. 

iEHJHNG LINE 

SS. 

. yoRB 

e 

iSTARTIHC SAMPLE 

DBtC: 

yopB 

53. 

jtlATA BEGIN 

SPS: 

- UORB 

38. 

jsanples per sector of a field 

ISPS. 

. UORB 

30. 

rIHITIAL $PS 

0KSI2: 

. yORB 

24. 

JB8EG/2-1 

DTSI2: 

. UORB 

38. 

i62-eK$I2 

SIZE: 

. UORB 

12288. 

jSIZE of each 24-LIH|_BUFF|8_.. .. 

SCTR: 

, UORB 



HBIM: 

. WORD 

512. 

)HIST DINENSIOH <512 UORDS) 

SPACE: 

. WORD 

49 


EJECT. 

. uor:) 

61 


UlC: 

. UORB 

2 

lOEFAULT UIC IS 2.2 

SVTY: 

. UORD 

70. 

_ ... 

2ESO : 

. UORB 

8 


ONE. 

. UORB 

1 

iCOHSTAHT 

T80. 

. UORD 

2 


THREE: 

. UORB 

3 


FOUR: 

. UORB 

4 


FIVE: 

. UORB 

5 


x« 

. UORB 



Y: 

. UORB 



LI HE: 

. yo R B 


iLINE HUMBER TO POT SUBROUTINE 

QFLAG: 

. yORB 

8 

(FLAG FOR QUICK LOOK <UHILE SCANNING) 

BFLftC: 

. yORB 

8 

VFLAC FOR BONMY SCAN 

IHBEX; 

. yORB 

56. ♦. 

iREL BUFR ADSR FROM PUT 

HPAR: 

. yORB 



JPAR* 

. 6LKV 

4 

jJOYSTICK PARAMETERS 

PAR: 

. BLKU 

80. 


HPMAX: 

. yORB 

80. 


SPAR: 




ML. 

. yORB 

488. 

Jt LINES 

MS. 

. yORB 

472. 

Jt SAMPLES 


. yORB 

7 

jSPE 

HLR, 

. UORB 

1 

I MLR 


. UORB 

512. 

jSLKSIZ 

HIST: 

. BLKU 

512. 

;8 64 UORB HISTOGRAMS 

HIS: 

. BLKU 

64. 

^SMOOTHED HISTOGRAM 

TBATAr 




HR: 

. UORB 


;t ROMS OF SECTORS 

HC: 

. UORB 


}» COLUMNS OF SECTORS 

LPS: 

. UORB 

63. 

iLlNES PER SECTOR 

SPS2: 

. UORB 

60. 

iSAMPLES PER SECTOR 

TTAS: 

. BLKht 

64. 


BTAS, 

. BLKU" 

64. 


BPER: 

. yCRB 

60. 

jBATA PERCENT 

SPER: 

. UORB 

48. 

iBACX PERCENT 

TX: 

. UORB 

TTAB+. 


eX: 

. UORB 

8TAB+. 



BACK: 

. UORD 


BATA: 

. UORB 


ITHR: 

. UORB 


SHUM: 

. UORB 


GY; 

. yo.^B 



iSECTOR NUMBER 
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ft£PL; 

H8: 

«SG*W0- 

L: 


SUF: 

BUFF. 

LHAHE: 

SHEAD: 

FHEftB: 

ii 1 a 

H2. 

M3: 

«5: 


. WORD 

_._UORD 
. BUB 

6 

. BUCB 
. BYTE 
. BYTE 
. B YTE 
. BLKB 
.ASCII 
.ASCII 
.ASCII 
. ASCII 
.ftEPT^ 

. Elii]R 
. ASCII 
. KEPT 
ASCII 
. ENBR 
. ASCII 
. KEPT 
.ASCII 
. ciiiia 
. ASCII 
,6LKB 
. BLKB 
. UORD 
. ASCII 
. ASCII 
. ASCII 
..ASIL12L_ 
. ASCIZ 
. ASCIZ 
. ASCIZ 
. ASCIZ 
. EVEN 
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8B. 

32. 

369/365. 3SB.3SB iVICAR HL ^ 599* IN EBCDIC 
369/364/367/364 iVICAR HS * 474* IN EBCDIC 
109/323/109/361 iVICAR FORNAT * L IN EBCDIC 


26. 

/SC/ 

/ SOURCE PATIENT 

V" 

4. 

/ 


^ n SLIDE / 
AC/ 

/ 


'AC/ 

7 

/ / 

/AC/ 

7 

/ / 

/AL/ 

J52. 

24659. 

BUF+471. 

/SCH/ 

. ST-$B/ 
SECTS/ 
£HTER-JCm 
SCANNING 


jSCAN ID 


MHT2 ID 


nuo 24 LINE BUFFERS * NVB 

iBUf + HS-:! 

jPtCTURE FILE DESIGNATOR TO HVIO 


JJL^ 


AT Y*****/ 

ENTER parameters < SL» EL/ SS/ ES > _/ 
PARAMETER ERROR/ <LFXLF> 

MOVE JOYSTICK TO J2 / _ 


S CA .H , 


c BINARY PICTURE GENERATOR 

SUBROUTINE BI N AR Y( DUN IT/ FI LP£X> 

BYTE FlL4>^EXt9^T - - 

IMPLICIT INTEGER <A-2> 

COMMON/Cl/NR/ NC/ LPS/ SPS/ TTAB < 64>/ BTAS< 64 > / DPER 
COMMON/Cl/SLOz SSO. NLO. NSO/ N03. 8/MAXN03 

COflrtON/Cl/NNAREA. MX AREA/ MHEPT. flXEPT/ MAXLEH/ Htt/ TOBH/ ISNt 
COMttON/Cl/ U0RD<4128)/ PIC< 12344). PBUF<512) 

INTEGER^ PAJtCZB)/ KETtr> VSPAITCS^/ CTASr39T7irrRB^^ 

BYTE PIC/ PNSG<22>/ PBUF 
DATA MKEYX6/ 

DATA KEY/*BP'/ *T0*/ *AR*/ *EP'/ 'LE*/ *SK*/ 

CALL SSUTCH^4/ ISN4> 

IFUSW4. EQ. 1> CALL TIMER 


C HPAR 

-t At±:-SS0TCN<1/ 1S1H-) 

IF( ISUI. EO. 1) CALL TYPE ( * BINARY*) 

CALL RPAS^ITtHPAi^/ PA5b 20) 

HILL BE ZERO THE FIRST TIME BINARY IS RUN ON A SPREAD 
tFCHPAR^. EO. 9) CALL TYP£< * GTARTTKC AHALYOIO ON' ) 

CALL AFILE<PIC/DUHIT/FILPEX/2/2> 


• - - ■ 





— CAtt“1)rt H <Pl“/ 61 44i 1/ O*"'* SCH"^ ) 

CALL GLABELCPIC/ SPAR/ INDEX) 



C 

1 r< NrKR . tw, vr ChIlL TYPE vrTC\ 1 HOcX+ r3 64^ 

DEFAULT PARAHETEfiS 

o ^ ^ _ - . _ . - > . ^ ^ ^ _ ... . . . , - 




o » 3 " 

MAXNOB - 85 

HNAR&fr * 32 




MXAREA 2998 
MNEPT -^ 8^ 
MXEPT « 298 
SLO -1 
MAXLEH » 99 
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101 

NLO « i> 

NSa " »IM0<SPAR<2)/ 3tt> 

CALL G£T<PIC/ NLO+1/ D 
CALL MVtfCPICn+Di i«r 

c 

I = -2 

t f « I + 1 

2 1=1+2 

IF< I . GT. HPAR) GOTO 20 
00 5 K=i » Nxsr 

1 Ft PAR^ «?-: 

C0T0C2, 12, 13. 14. 15. 16>, K 

3 . C0«TaMU2 :^-^ '•- ■ ‘ -f I 

C " ^ ■ ■ " ♦■ *' ■ 

C PARAMETER ERROR 
PAUSE I 
XOTCr^20 

12 T09H « PAR<r + 2) 

GOTO 1 

13 1 = 1 + 2 
HHAREA • PAR<0 
HXAREA = PAR<I+1) 

“(HITO 

14 I » I + 2 
«NEPT - PAR<I) 

HKEPT - PAR(I+1) 

GOTO 2 

15 - PAR(r+2> 

b U U I 

16 e =*- PAR<I+2) 

GOTO 1 

20 CONTINUE 

IF< ISU4. £0. 1) CALL TINER 
6 = <B+1 )/2 
SP52~= <^PS + U/2 
HSANPS » NLO - <HR-i)*LPS 
HU = HSO/32 + i 
iVil = <NS0 + 31>/32 
HUl = HUT+IE 

C ++* 0IHARV PICTURE AREA(UORD) IS ASSUHEB TO BE ZERO INITIALLY 

C MW = HUMBER OF llimirsnEJUT PEirTrrHE 

C HWI = HURBER OF WOR0S IN PER LINE 

S « 0 
C * 0 

C CTAB<30> - COLUKH TABXe <COMTAIN8COtO«N INDEX TOR WORD) 

C NTAB(30) = NUH0ER OF SAMPLES OF WORD BELONGING TO THE 

~~Z CORXENT CDLUNH 

DO 50 W=1.HWT 

cTA0(w> « c ■ ;; 

MTA8<W) » 16^ .V ' ^ ^ i ^ ^ 

IF<C.EOfM(}M) GOTO 50 : 

S = S + 18 ' 


IFCS.LT. SPS2) GOTO 50 
S = 8 - SPS2 



NTAB(W) « 18 - S 
C = C + 1 




50 

COMTIHUE 

IF< 1SW4. EQ. 1) CALL TIMER 




C 

SI = 1 





UI ^ NW 

REC = 1 





I IPS = LPS 




c 






ao 390 R»l, HR 





IF<R. EO. HR> ILPS » H3AMPS 




c 

BO 290 t«-2. ILPS/ 2 





CftLL GEKPIC, REC/PI ) 
REC =/ 0 





CALL MVU<PlC<PI+l)/PBUF. NMI)" 
CALL GET (PIC. 0>f I) 
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s * I 

C If ( I$y4. Fd. J ) CALL TiriFR 

C 

IF<TOBH*JB. 0) GOTO_250 _ 

■ ' DOr20d"y = l. NUT 

CALL QTHR (PBUf (S)^ UORIK0I + M)/ TT AB <CT AB ( 0) ♦$! )* PI C <P I ♦ S >^HT AB< ti»> } 
29B S*S+32 

C 1F< ISU4. ESI. n CALL TIMER 

GOTO 290 

C 

259 CONTINUE 

DO 280 HUT 

CALL STHR(PBUF<S)/ WORO<HI + «)* Tl A3<CTAB(H)>S1 ). PIC (P I + S)/ HTAB<«) ) 
288 S * S + 32 

290 ttl » U1 + HW 

C 

" 300 ' s'l » S~r + ¥c 

c 

IF<HPAR. EC. 0) CALL TYP£<^0') 

PARC 1>“'LE' 

PAR<3>«90 

CALL UPARAHU. PAR. 2) 

C URITL PARAMETERS IN CASE OF RERUN 
CALL CLOSECPIC) 

1F< ISU4. EQ i> CALL TIMER 
CALL SECNNT 

!F< ISU4. EQ. 1) CALL TIMER 

C __ 

'END " ' ' 



C 


SUSPOUTIME SECMNT 

lMPLIC-I.T-4WT£CeR-4A-2) - - - 

COMMON /C 1 /SPARO 3T ) . SIO. SSO. HLO.HSO. HOB. B. MAXNOB 
COaMON/C 1 /HHAREA. MX AREA.* MNPFRM. MX PERM. MAXLENi NU» TOBN. 1 $V I 
COMMON. "C 1 / U0RD<41 ;?8)/N / PERI M/ y«lN. XM3 N. VMAX.XMAX 
caaaoN^ci^DiKi^i;:.. EbUi- <?’5>r cI*ge<4uJ'Mi 
COHMOH/Cl/ NK. LlP<50>.SiP<69).Fl 


IHT-£GE-R_PAR4-5> - 

BYTE LAB£L<512). M<6).CHITE<i4) 

DATA PAft/512. 1824. 7. I .512/ 

DATA LABEL/70*' ' . ’ S * . ' C ' > 70 ♦ ' ' . ' A * . * L ' . 38B% " '/ 


BATA MAXN/1022/. DREC/2/- - - 

THE EDGE POINT DIRECTORY CONTAINS THE FOLLOyiNG FOR EACH OBJECT 
JU.R-ULl.>-ig-ElBU <FIRS..l-&LCaC-yRITTEH) 


DIR<DI+n = H <HUM0ER 
DIR(DIi-2) = YillH 
DIR<DI+3) * XMIN 
D IR CD I +4 ) s YMAX 
DlR<Dl+5) s XMAX 


OF END POINTS) 


EDGE<£ > = Y EDGE<E + 1 ) • Xt 

EDGE<E-+2V « Y E BCE-CE +3 X » -X2 

CALL ITLA(0. WHITE. 14) 

- 1FCTQBH-.lt. 0) CALL RP AR A M C HP . NK.-1 6) 

READ OLD VALUE OF FI 


JiJC:=a 


MHAR = MHAREA/4 
MXAR *- MXAREA/4 
MHEPT = MNPc,^i1/2 
MXEP.T e MXPERN'C 
MXLEH = MAXLCH/2 

CAL-U.SSUIC:H-a^-XSUU. - 

IfCISUl.Eij 1) CALL TYPt(' SEGMNTM 
CALL S5UTCN<4, I5U4) 

IF< IS’J4. E:;?. 1 ) CALL VPRIHK' SECtINT') 


CALL 2IA<EBUF.23; 

CALL 2IA<DIR. 5I0) 

CALL .ZlA.<-F;iLLL.-ta24 X - 

CALL MVL(' EDGE FI L £ S L ASEL < 73) . t 9 ) 
1F< T03H, IT. 0> GOTO 130 
CALL AF1LE(ESUF. L 'PIC *.5.3) 

CALL OPEfKEBUF. LJ>4.a. 1. 'MV2* ) 

CALL PLAB.n CEE.UF. PA To LA3ED 

CALL 
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109 com IHU£ 

c ^ ^ HU»3eR OF MORIW OJ*- 0 -BIN;W?Y UNE 

RFC =* 3 

my2 

U^Z ^ NU*2 

HL-^~HUU2 

H3 « NSO/2 

C MOB ^ >IUn9ER OF OBJECTS 

c 01 » OORD IH3EX £01 ' ENBING OORB IHBEX 

C - El ^ EBC£ IMBEX^ B r a BTRE CT OSfT IKBEX 

C BI a BIT IHBEX <=>0, 1, 2, . . , ,31) 



hi ‘ I 

HOB -B 1 

C SCftN EIH0RY PICTURE <OORB) UNE-BY-UHE 

-C -- - 

BO 200 iBly ML 
01 - EOJ ♦ I 

EUI - EO! + NU 
LOOP =^0 
C 

C THE ROACH OlLt SCAH LINE FOR OBJECTS <ONE-BITS) 

C 

140 IFCRQACata-li-BliJ4QRB. EUl^ASJO-^EiUeLL 0010-200 - 

LOOP = LOOP + 1 

IF<tOOP- EO. 200) PAUSE 1 

EBGEU) = L 

^ v.^O-CtOI-yi+l )>^1E ♦ Bl * i 
CALL TURTLE (N^ EDGE. 00Rfi<0 I )i MASK/ HO 2) 

— 1 FCK .-EQ ,jX)- ^ CO TXU--U-0. 

N2 = 2*H 

IFCNOB.HE^TOBH) TJOTO-14-1 . - - 

CALL 1L1ST<H0B.H. YHlH«XI11H;Yf1AX> 

C CALL PBUl!lP<EBaE.EBCE^CH^)/ l) 

14i CONTINUE 

LEXH^ E.25S) GOTO 142 

CALL $ORTIN<EBCE/Ni $]H0> 

C lFtH0S>EQ.T08H). CAIL P0OnPiEBG£j.EXL6L<H2)/-l)- - 

1F<SIM0. E9. 0) GOTO 145 

112 XFLH.XE^HAXK) CaiO 14X 

CALL TYPE<' TOO HAHY EDGES') 

CALL TYPEf » ^ > 

GOTO 2000 

-141 COHTIKUE - 

IFnSMl.EO. n CALL TYP£(' SORT*) 

IF< ISM4. Efl.U-JCALL-.STIHEIt 

CALL SOftT(EDGE«N) 

lE-CXSO-i^EQ— 1) CALL TIHEJE 

C N a NUMBER OF EDGE POINTS 

145 CALL ERASE<OOR^D« EDGE^-ARJEA^H2«iUU - 

IF<H.LT. HHEPT.OR.H.CT.ttXEPT) GOTO 196 

lF<AREA^UT-nHAR,Oft^Afc£A.aT,nXARX GOTO 19S 

IF<Y«AX-VHIH. CE. WXLEH,OR.XnAX-X«IN.CE. HXLEN) GOTO 196 

- C 

C ENTER OBJECT INTO DIRECTORY 

lF(HJC-C£-.E0,Oit. TO0H.C£.0> -GOTO L?^ 

HK=HK+1 

LIP<HK)^EDGEC t)+EBGECl>- - 

S1P<NK)=>EDGE<2> + EDGE<2) 

.C^D2£^Qa_LKF-02BAJ[Xj0H-£aR-4aUC X OaUK T QB-TIOH- 

Y*4*EDGE< n 

.Xa4*EDC£<2)--14 - 

IFCX.LT. 0) X = 0 

C yf?lT£ AH ARROa . BY. THE OBJECT - 

CALL DLIHE<UHITE. Y. X. 8. 1,0) 

-- C-ALL 0 LJJi£CaHLTE,..Yx-X^a^ 1,-0X 

CALL SS0TCHC6, ISU6) 

1FC1SU6_E0. 1) GOTO- 175 - 

CALL DLIHE<yHlTE,V-4,X+S,2,l,B) 

CALL DUH£<UHITE, y-4, X+8,2, t, 0) 

CALL DLIHE<UHITE, Y-2/X+10/2, 1,8) 

-- CAiJL-DJailEXSHlTE^Y«2,Xtta, 2i X Jd.1 

CALL DLIHE<UMITE,Y + 2,X+10,2, 1,0) 

CALL DLIH£<«H1TE. y + 2, >Ltl0,L2, I.L0X-- . .. 

CALL DLIHE<yHIT£, V + 4,X + 8,2, 1,0) 

CALL. DLlHE(WHlTEiY-+4^Xf.8,2^-t. 0) 



107 


4,122,518 


108 


1?5 COMTIHUE 

« ^EQ 

DIR<SI+1> = N 

BIR<Dlt2) * BftX0Cy«UI-8i^l) - - 

DIR<SI+3) HAX0(XrtIH-B. t> 

BIR<j)l+4) » HlM0Cy«AX-»'B*HL^ - - 

BIR(BI+5> » H1N0<XMAX+B. NS) 

H0» HOa^.t _l . * u - ... 

M - t 

IF(NOe.GT.riAXHOB) GOTO 2B1 
C 

IF<TOBN. LT. B> GOTO 140 
C DON^T URITE IF QUICK COUHT OPTIOH 

- ^ na- is»5 -i = UH2^5^t2 — 

CALL URiTE<EBUF. REC.EBGEd)) 

\'^5 REC = REC +1 

^: 0 T 0 140 
C 

196 CALL SS0TCH<4, ISU4) 

. . _ CO-TO— 14^0 

CALL QPRIHK' OBJECT REJECTEBd 

CALL IL iS^T< MOB. H. AREA/ y«4W,J<#«*XX 

CALL ILIST<YI1AX-YBIH/ XtlAX-XBIH/ HX AR/ HXEPT / HXLEH) 
GOTO 140 
C 

— M A X H 

C 

- 201-- HOB=KOB-l 

1F<T0BN. LT. B) GOTO 220 

IFCDI.aT. 1) CAUr BRWE<E&UF-^W?tC>OIIO 

CALL MRITE<EBUF/ 1/ SPAR) 

CALL GLO SEC E SUF) 

220 IF<N06.Cr.B> GOTO 2008 

C IF MO OBdECTC F4WIHB. TYPE4LSC ANIL CALC «T-t 

CALL TYPEC* NO OBJECTS FOUNOi CHECK THRESHOLBSM 

CALL- TyPCC'B* ) 

CALL APHA$E(7> 

2C03 CaKI-mU E ■ 

IF<TOBN. GE. B) RETURN 

CALL HVLC' I4C-**'- H/6) 

CALL 0UTC0N(HK/N(6)>2) 

CALL TYPe<N/6J 

CALL 0PARA1K122/ NK, 6) 

CALL-APHASEXZJ 

C WRITE NOB PARANETERS ANO CALL INTI 

EKO -- 


SUBROUTINE SKIRT 
IMPLICIT lHTECER<A-<2) 

C bllNON/C 1 /SPAR < 133 ) i'SLO/SSO/ HLO/ NSOrMOBrS* 0PER 
C0«N0H/C1/DIR<512). SD1R<512) 

CCNrt0N/Cl/E0UF(S6). EDGE < 1 924 ) / SEC B (56) / SEC< 8 1 92 > 
C0.1rtaM/C t/SSUF <908>,£Si <5> 

INTEGER PAR<5> 

BYTJ EBUF/SE^GB 

DATA HAXSB/9Bb// MAX BI /5 1 $// S/ f// B I >1 / 

BATA BREC/2// IBREC/2/ 

c ■ 

C THE SEGMENT DIRECTORY CONTAINS THE FOLLOWING FOR EACH OBJECT 


C SinR<Dn =* BSKBrClMHlHC SEOHEXT IKBEX) 

C SDIRCBt^l) « ESHENBING SEGNENT IKBEX) 

~c Sim? nrrT2^—i^flrm 

C SDlR<BI+3) a XNlk 

C SDlRUiIV4V i YNAX 

C SDIR<»I+5) « XHAX 

C THE SEGHENTS ARE STOREB AS TRIPLETS 
C SEG(S) « Y 

T s^EGT^rrr^Tn 

C SEG<S+2) » X2 

C INE ROB DIRE C TO RT COXT A I NS TN¥ FOLLOW 1 NG FOR EACH OB JEC T 
C BlR(Bl) » BACKGROUND 

C DIRIDI+I) = THRESNOLB 

C DIR(DI+2) a YNIN 



(O m (fl CO to CO 


C 

C 

C 
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DIR<DI+3) « XHIH 
DIR<DI+4) = YHAX 
I^IR < D I +5 r » XHAX 
CALL SSUTCHd/ IStf 1 ) 

IF< ISttl. EQ: 1) CALL TYPE(' SK IRT M 

CALL AFILE<EBUF. 1, 'PIC '.5,5) 

CALL OPENCEBUF. 1024,0,0. 'HV2' ) 

CALL AFILE<S£GB, 5, 'PJC '.5,5) 

CALL OPEN (SECB, 1024,0,1, 'HV5' > 

CALL GLABEt(€BUF.PAR, IMB) 

CALL HVL<' SECRENT F I U ' , EB0F ( I HB^73 ) , 1 3) 
CALL PLABEL<SEGB. PAR. E8UF< IRB'M )) 

CALL POKSECe, I, IND) 

C GET SHAL PARARS 

CALL READ CEBUF. 1. IND, SPAR) 

DP£R = SPAR033) - 5 
OREC ^ 2’»^<<H08+34)/85> + 2 

CALL URTT£<SECB. 1, SLO) 

HL = RLb/2 
MS - HSO/2 
B 2 ■ 2 ♦ B 4 t 
SIHC = MAXSB/B2 
HAXS8 =» S!HC*82 
C 

C “ ' S = SEGMEHT INDEX ^ 

C SI - SEGHEHT BUFFER INDEX 

c ■ ■■ ■■■ ■ ■ ' 

DO 269 OeH>t/ NOB 

IF<DI he: 1) GOTO 30 

CALL READCEBOF. IDREC, IND,D1R) 

IDR“£‘C '» IDREC ♦ I 
CALL nVU<B!R. SDIR. 512) 

30 IREC « DIR<DI ) 

N » BlR(DI^l) 

SDIR<DI> a S 
CALL IHTERP(DI) 


C 

C 

49 

C 

C 


c 

c 

c 


NR£C = <[IEND^511 >/512 

DO 130 L»l. NREC 

CALL READ<£BUF. IREC. INO, EDGE) 

IREC =«__IR£C + l 

£IH => HIH0<NEND;5T2) 

ADD HORIZONTAL SKIRT TO SEGHENTS 
30 49 E-2 . Ein. } 

£DGE(E) = HAX0<EDGE<E)-B, I ) 

EDGE(£+2) = MIH0<EDGE<E+2) + B.HS) 

" if<l.¥£: rrcoTo 

Y0 = EDGE(l) 

Y8AR = Y0 - B 

USE FIRST SEGRENT END POINT PAIR TO INITIALIZE SBUF 
XI * EDGEC2) 

X2 « EDG E<4 ) 

I » 1 

0 S0 I=»l, B2 
BUF<SI) * XI 
BUF<SI+l) « X2 
SI (I ) :» SI 

1 » SI -I- SI NC 

SI =* t 

I • t ” 

E I = 5 

CONTINUE 

PROCESS REHAIHINC SECREMTEND POINTS 
DO 120 E=iEI,£IN, 4 
Y = EDG£<£) 

IF( Y EQ. Y3) GOTO 90 

ADVANCE SBUF ONE RO^i 

5J__+_SI(1C 

1 = 1 + 1 

IF<$! . GT.HAXSB) SI-1 


C 
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IF<I.GT.B2) I«l 

IF< YBaR LT . 0) GOTO 82 .. . 

C RELEASE SEG«£HTS OH LIME Y8 - 0 

SEND » ESI < I> 

5O"80' SIP»SI/ SEND/ 2 
SSG<S) » YBAR 
SEC<S+i) - SBUF(SIP) 

SEG(S+2) = SSUF(S!P+l> 

8 0 S a S 3 

C_ ____ 

82 Y0 * Y0 + I 

YBAR « YBAR I 
SOUF<SI> = EDG£<E+l) 

S9UF<SI + 1) =» ESGE(E + 3> 

ESI ( [ ) =» S I 

C 

90 SIP « i 

X10= EDGE<E^'l ) 

X20* EDGE(E+3) 

C 

DO 100 I 1*1. 82 

SIQ * SIP 

SEND * ESI < II ) 

XI * xie 

X2 » X20 

C 

93 XP! « $BUF<SIQ) 

IF<X2. LT.XPl-l> GOTO 95 

:<P2 = SBUF<S!5!+1) 

IFCXl GT . XP2+1) GOTO 95 

C SEGHEHT <Xl,X2) IS CONNECTED TO A PREVIOUS SEGMENT 

IF<3IQ.EQ. SEND) GOTO 94 
XI » HlN8<Xl. XPl ) 

X2 * NAX0<X2. XP2) 

‘SBIJFrSIQy * S80F<S£N'ir) 

SBUF<3I0 + n * SBUF<SEND + l) 

= SEND - 2 
GOTO 93 
C 

_ 94_ seiJF<SEND>_» _HINe<Xl. XP_1)_ 

S8UF<SEND+1) = HAX0<X2. XP2> 

GOTO 98 
C 

95 SIQ * SIQ ♦ 2 

IF'CSIQ.LE.SEND) GOTO 93 

SBUF<SIQ) = Xi 
■“SitTFYSfQ + r) = X2 
C 

98 ESI <I I > » SIQ 
100 SIP « SIP + SING 

C 

120 CONTINUE 


El * 1 

130 ■ REND «'NEKS - EIT* 

C 

C RELEASEREMAINING SEGHERTS 


DO 150 1 1*1. B2 

r r<y 3 a R“( rrnRrr“GOTO ist 

SI * SI + SINC 

r * I + 1 

IF<SI.GT.«AXSB) SI*t 
IF(I. GT. B2) 1*1 
SEND = ESI < I) 

iTO ” T 4^“STP^s rrsTHD'rs — 

SEG(S) = YBAR 
SEG<S + n ■* SBUF<srp) 
SEG<S+2) = SBUF(SIP+1) 
140 S * S + 3 
C 

— r5FYrar’^'^s'jr~i 

c 

189 
C 


SDIR(DI+1> * S - 1 
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m =1 Di + i6 

“ IF(DI. Lt HAXBI > GOTO 239 

CALL yRITE<S£GB. SftEC* B1R> 
CALL MRiTE<SEGB/Bft£C+l. SBIR) 
DREC « BREC + 2 
BI =- i 

298 CONTINUE 

C 

C 

IF<DI. £Q. D GOTO 295 
CALL URITE<SEGB. DR£C/ SIR) 

C ALL U R I T E < SEG B. HR £ C+ 1 /S D I R ) 
C URITE OUT SEGMENT 

203 to 210 I-l,S/"5t2 

CALL URITE<SEGB. OREC. S£G<I>) 
2t0 OREC » OREC ♦ i 

CALL CLOSE<SEGB> 

CALL CLOSE<EBUF> 

END 


SUBROUTINE CHROME< DUN I T. FI LPE X) 

BYTE-I^ILREXC^^) 

IMPLICIT IHTECERCA-2) 

COMNON/ClySLO. SSO* «LO/HSO^ KOB/B 

COHNOH/C t /DIR <31 2)^ CHVB< 1352 ) . C <5 1 2 ) * PBUF < 1 308 ) 

C THE FIRST 28 UORDS OF POUr ARE THE MVSr FOLLOUED BY 1824 WORDS OF 
C BUFFER STORAGE. FOLLOWED BY 25E WORDS OF PICTURE STORAGE 

C 1 

COMNOH/Cl /OREC. NFS! 

BYTE SEGBrPBieSLS)^ 

EQUIVALENCE (PB. P6UF) 

integer PAB<3> 

DATA SEC3I2/64/. SSN1/S3/ 

DATR>4iAX i L U51 0^^MAXBU Fv BS00 / .> I DREC / ^2 / . L P BU F/t03 2 ^ . D R£ C ^ R/^ — 

C LPBOF IS THE LENGTH OF PBUF MINUS 256 WORDS OF PICTURE STORAGE 

-■-C- ■ - - . - 

CALL SSWrCHCl. ISUl ) 

irU^W-UEQ,4> CALtr TYPeC GNROHE-'T 

CALL SSWTCH(4. ISW4) 

U GO J -O^ 3 

CALL QPRIHT<' CHROME') 

CALL YIMER 

MAXeUF>7320 

3 COHTTNUE 

CALL AFILE<PBOF. DUN IT. F I LPEX. 2. 2) 

C.AL4,^-O PE N <P BU F.LP RaF"^ 20 ^ t . 8. 0 . * SC M ^ ) 

CALL GLABEL<PBUF.PAR/ IP) 

NW»<PAR<^)M)/2 

CALL AF|LE(S£G6. 3. 'PIC '.5.5) 

CALL OP£R<SEGB. ia84>0.0. 'MV3 ' ) 

CALL GLABEL<S£GB.PAR. IND) 

C A LL 2 4RT G RV» . - 2 B ) 

CALL AFILE<CMVB. 1> 'PIC '.5.3) 

CALL CP£ff^CMVB,L02-4. 4. l iT '^ V2 '-> 

CALL MVL<* CHROME F IL£ ' . PB < I P*»>1 8B ) . 1 2) 

CALL PLABEL<eMVB.^PAR.Pa<IP*Kl» 

CALL R£AD<SEGB. 1. IHD. SLO) 

— CA LL - P UT 4- C R V B . - 1 r IC > 

CALL MVW<SL0.CHV8<IC/2^1)/512) 

NREC » <H08-f84)/^8S 

IREC = 2^NREC + 2 

OREC =* HREC + 3 

CALL READ(S£GB. IDREC. IND.DIR) 

GALL- PUT-4C?fVBT^R€CT-lC-> 

CALL MVWCDIR. CMVB< IC/2+1 ). 512) 

CALL REAMSEGBirlflREC+lT IHD. DIR) 

IDREC * IDREC + 2 
DREC = SPEC '►I 
C FORMAT CeUF 

Dg Ni ) s. H0R»6 

SEND > DIR(DEND-4) 

DISP- a MAXBUF-SEHD 

C 

J * DISP + I 
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C REAB IN SEGNENT FILE 

m)-5— I Z 

CALL REAB<SEGB.IREC/INO.CBUF<J)) 
a » a + S12 

5 IREC » IREC ♦ I 

JC - . . .. 

DO 6 DI»liBEHS.6 
DtR<BI> « BIRLDIV BLBP 
fc DIK<BI+1 > = BIR<Dl + l) ♦ BI3P 

C - 

TNS « (DISP-n/SECSIZ 
H = TNS4.SECSIZ 
C 

lXO-ta-.l>cUH. S EC &I Z 


10 CBUF(I) := I+SECSIZ 

C -... 

LFSI * H - SSHl 
CSLr CLFSI ) == 3 

C THE SEGMENT DIRECTORY CONTAINS THE FOLLOWING IKFORHATION FOR EACH OBJ 

C DIR(BI>1) > ESI « ENDING SEGMENT INDEX 

C DIft<DI+2X * VMIN 

C DIR<DI+3> » XMIN 

C DIR<DI+4>-» YNRX 

C DIR<DI+5) » XMAX 

C 

C THE CHROMOSOME DIRECTORY CONTAINS THE FOLLOWING INFORMATION FOR EACH 

C . CBIRCBI) - BS^I » BEaiHHXHC.-SEGKC>TT -IH&EX 

C CDIR<BI41) - NSEC » TOTAL HUMBER OF SECTIONS USED UP BY OBJEC 

C CBIRCD^l+3) • FS^l * 4 MBEX OFFISH MC^TIOIL USEB^ B^Y TIBUEaT 

C CBIR(BI43) » LSI « IHBEX OF LAST SECTIOH USED BY OBJECT 

-C CD I R<Dl 4i > a -E HW » F IR S 4 HAL F WO R D O f S EC TI O N USED BY OBJEC T 

C CBIR(DI4S) » LHW » LAST HALFWORB OF SECTION USED BY OBJECT 



C HFSl » NEXT FREE SECTION INDEX 

-C LFSI- 9 XAST- FREE SEC-TWIL-IHJEX 


NFSI =• 1 

PI » 1 

C 

50 DBEC- * BI- 

IF< 1SW4. £Q. I) CALL TIMER 

C INCREASE NUMBER OF BECT IONS- 4.F -POSSIBLE 

CSI = DIR(DI) 

CBIRIDU 

IF<8$I.EQ.0> BSl » CSl 

51 KS4 =^-LFS4- -4 SECSI2- 

IF<N$I.GT. BST-SECSIZ) GOTO 52 

CBUFaFSIX-«-NS4 - - 

LFSI « MSI 

G OrXL^t 

c 

52 CBUF(LFSIX » B 

Y0 * C8UF<CSI> 

REC « 24 Y8 - 1 - - 

CALL GET<PSUFx REC. IND> 

- CALU nvW-CPBUE-UNIU.2AU^RBUFXLPBUF4 t )^4iBX 

CALL GET<P3UF> 0. IND) 

IP*INB/2 - . 

C 

C PROCESS OBJECTS 1 TO HOB - 

C IF<ISW4. EQ. 1) CALL TIMER 

- - DC -t00-JUi=.DBE4UB.ENIU-S 

CSI » BIR<BI) 

IF<CSI,E0. CX 4;0T:0 100 
Y « CBUF(CSI) 

IF<Y.CT. V0) GOTO tlB 
ESI - DIR<Dl4l) 

LS^I— -CD I g<Dl 4 3- ) 

LHW = CB1R<DI45) 

MSEC - 0 

IF<LSI HE. 0) GOTO 58 

C FIRST SEGMENT OF OBJECT. ASSICN A SECTION 

IFCNFSl. EQ. 0) CALL TYPE<^ WMBUFl') 

. LR4JbU;>0I- E&^e>..CALL--l»N8UFCBBC:fi^ »ENB>Br> 
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C D : R D I ) = CS I 
C5lR<ai»l) = t 
CD!R<DI+2) - HfSI 
C1IIR<DU4> - 1 
C0tR(Dt + 5>=‘] 

- - LSI-* NFS! 

HFSI = CB0F<HFS1) 

LHl* * I 
C 

C LOOP THROUGH E(^C»f SEGHEHT OF CURREHT OBJECT 

58 DO 96 $I>C5I. ESI. 3 

V --EBHF4SW 

IFIV.CT.Ve) GOTO 82 

XI ■ CBOF<frH“I) ♦ LP80F 

X2 - CB0F<SI+2) ♦ LPBUF 

SO 78 L*1.2 

C 

SO S2 X*X1, X2 

IF<LK«-.LT. SECS12> CaTO « 

C ASS OH A NEH SECTION 

IF4NFS T.E4I.4) C4LU TTPE< •- «NW»F^i-> - 

IFTHFSI. EQ. 8) CALL UNBUF< S8EG. SENS. SI > 

H $EC- e- M S EC- * - I — — 

CBUF<LSI> » NFS] 

UST •^-HFS4. - - 

HFSI * CeUFCNFSI) 

- LHH * 4- - - 

C 

€8- CBUFCLSI*LHH) ■ PBUF<X) 

62 LHU * LHH * 1 

XI=CB0F<SI+1>*1P ^ 

70 X2»CBUF-<6I*2)*IP - - - 

C 

80._C0»W4«»S 

C 

CBIRCDT*J>--» LSI - -- - - - 

CBIR<Dt«S) •< LHU 

C -EHB OF OBJECT:- UftlTE OOT-TO--S-ISK 

C IF(1S«4. EO. 1) CALL TIHER 

8 t-C-AU^-U8UF < W 

CSI = BIR<BI) 

IF<CSI . HE. 9> GOTO 81 - - - - 

C IF<ISU4 EO. 1) CALL TIMER 

GOTO 100 
C 

-6 RENAT#THG-P<RT4-0H-0F— 6 8 JECT L tES-B£4r6U-GLI B»EH T - L - F HE 

C UPBATE BIRECTORIES ANB CONTINUE 

82 CBIR<3I*l> -■ CBTR<BI + 1-V-+-HSEG - 

CBIR(B1*3) * LSI 
CBIR<BI*5>- *-LHU 
BIR<BI> * SI 

W CONTI N U E 

C 


-C HO MORE OBJECT8 ON -TW8 -LT-NE. - OPB*TE ANB^ COHT-IHHE. 

118 CONTINUE 

C IFUSU4-. EO. l> CALL TIMER 


BO 128 BI-BBEG. BEHB. 6 

C M -* B I R < BI) : 

lF(CSt .HE. e> GOTO 58 

128 CONTINUE- 

C 

IF(ISU4,-E0. 1) CALL TTNER 

CALL PUKCNVB. BREC. IC> 
CALL..a.VHlXRU^GIWB< 102 > 

CALL CL0SE<CNV8) 

CALL CLOSE<PBUF> 

CALL CLOSE<$EGB) 

IF<ISU4.E0. I) CALL TIMER' 

EHB 
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SUSROUTIHE ROB 

IMPLICIT- IWTEGE^4fr-2->- - 

COMMON/C lyCHVBCSfi). C<512) 

COHMOH/C USHV&C 56)^ EDGE ( 1924), LBU<Sa>^ 

COfi«ON/C l/SLO. S$0, «tO, HSO, HOB, B, dPER 
COrtMOH/Cl/,S,PERIH, V«IH. XHIH, VH^^Xr XK4X 
COMMOH/Ct/SDIRCeSG), TT?^B<G9), AREA < 69), I OB <60 ) 

MP <-6^)-, S^P-460^WPt{W4<-60^-CIR4A4-60-) 

LOGICAL*! BUF<10990) 

BYTE C«Vfr,SHy&rSTBLO20),l1SG?(20),«SGd<25), T»SG<128> 

INTEGER BIR<519),PAR<190), HIS<64), OTTAB<60) 

EOUIVALEHCE <BIft^SBlRn4B)>r <HIS, SBGE^ 

DATA HAX8UF/i9090/, RECS 12/ 1024/, HOBPH/ 6/ 

O^ DTOT / »>, H PTOT /fr /tH A X H Q B. ^ 0 /, TO BH/0 /, H frX H^/^ 4 00-/ 

DATA OREC/2/, DREC/2^, RFL AG/1 /, OTT AB/69+0/ 

C THE INPUT CHROHOSOHE DIRECTORY CONTAINS THE FOLLOWING FOR EACH OBJ 


C DIRLDI) * BACKGROUND 

C DIR(DI+1) » THRESHOLD 

C- ~ILIR < D I * 2) « C H L ( HIHI N UN LI N E) 

C DIR(DI+3> » CHS (HIHIHUH SAMPLE) 

C DIR<DI^> » CHXt (NAXIUmi tIHE)- 

C DIR(DH-S) » CNXS <HAXI»UH SAMPLE) 

- C ~ THE OOTPUT ^^HROHOSONE DEREGTORV COH4^A4-HS^ THE FOtLOU^MG-fOlt EAC4i OBJ^ 

C SDIR(CDI)* FBU (FIRST RECORD BLOCK URITTEH TO DISK) 

-C S D IR < C D l4!) a W L ( ttlJ iXWON 

C SDIR<CDI42)> HS (NIHIHUN SAMPLE) 

X SDIR<aDl*3X- LBUXLAGY RECORD BLOCK URITTEH TO BISK) 

C THE INPUT CHROHOSOHES ARE IH THE FOLLOUIHG FORMAT 
C C<!) PREVIOUS BLOCK URIT^TEN 

C C<2) MSEC (NUMBER OF SEGMENTS IH THIS RECORD) 

C C,CC-T)-^- Y-^LXW£— COO RD IH A T C« 0 > 8 S5) 

C C(CI+l) » X (STARTING SAMPLE COORDIHATE»0 - 235) 

C C(CI>*2> « N (HUMBER OF SAMPLES IH SEGMENT > 

C NOTE THAT TUO CONSECUTIVE LINES OF SEGMENT GREY VALUES ARE PRESENT 

C ALSO, THE DIMEHSIOHS ARE THOSE OF THE HALF -PTC TORE AND MUST BE 

C DOUBLED. 

C tHF O UTPU T CH ROM OSOMES A R E IH THE FO LL O UIH C FO RMA T 

C C(l) = NSEG (NUMBER OF SEGMENTS IH THIS RECORD) 

C C(Cl) * Y (LIHE COORSIHATE-l 012) 

C C(Cl + l) = X (STARTING SAMPLE COORDINATE*! - 512) 

C C(CI + 2) = N (NUMBER OF SAMPLES IN SEGMENT) 


C 

CAL L-SSUT^CH(4 M SUTT 

IF< ISUl. EO. 1) CALL TYPE(' ROBM 
CALL S8UTCH<4, ISUL) 

IF<ISU4 EO.l) CALL OPftIHT(' ROBM 
CALL RPARAM<HP,PAR/ MAXKP) 

IP=1 

. - TF4L P. GT . HP)-GOTO-S3 — — 

1F<PAR(IP). EQ. 'TOM GOTO 39 
IF<PAR<IP). HE. 'OT' ) GOTO 35 
0TTAB(PARUP>2))*PAR( IP + 3) 

IP*IP+4 

GOTO 20 

lP=IP+3 
GOTO 20 
35 CONTINUE 

RECSZ2 « RECSI2/2 

C LBU(80) » LAST BLOCK URITTEH FOR CURRENT CHROMOSOME 

r nr a n ujiFC-tn^v r ttnm 

C MC NUMBER OF CHROMOSOMES 

C 

CALL AFILE<CMV8, 1, 'PIC ',5,5) 

CALL OPENTCMVB, 1024,0.9, '«V2' > 

CALL AFILECSaVB, 5, ' UCft ',M3,M3) 

CALL 0 P EiUSm a ^ucRJt-) ~ 

CALL GLABEL<CI1VB,PAR, IND) 

CALL MVL<' 9.0B FILE ' , CM VS ( IMD* 1 SO ), 1 2) 

CALL PLABEL(SI1VB, PAR, CMVB< IND^-l )) 

CALL SSUTCH(0, ISU0) 

IF< ISU0. HE 1) GOTO 37 

C ALL GP RT-NT^(^^ — 

CALL QPRINT(CMVB<IND*73),70) 
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CALL QPftIHT(C«V&CIM&4^H^>^5a) 

CALL QPftIHT <CHVa< IHB42t 7>/ 7A) 

CALL QPRIHTX^ 0OBJ ----FEJt B B- UAX LINE 5AHP-- 

1 SL SS HL NS T1 T2 FPOH AREA IOD/8 AVG 

2 

37 CALL ITLA(32> T«SG» 128) 

CALL PUKSrt-Ve* BRE(Lr-INDX- 

CALL READCCHVB. INS/ SLO) 

. . CALL READLCCilva/.aREX*XHIt/.Blia 

SPEC » SPEC ♦ I 

CALL REASCCaViR. DRFC* 

BPER • 100 - BPER 

- - a - - - - - 

Bl e B ♦ 1 
6 2 « B +. Z 
B3 = 2*8 + I 

SO— 

CSI = 2 

C LOOP THROUCH EACH OBJECT 

SO see OBN^L hob 

PEC * LBWCOBH) 

CNL * SIR(Sl+2)*2 - 1 

CHS ft BIR<SU3X<^2-^L 

CHXL * DIR<DI+4)»2 
CHXS “ 6IR<SI+5>*2 
CHL = CMXL - CHL + 3 
CMS « CMXS - CHS 42 
CKLHl « CHL - 1 

XNSJU-^CftC----L — 

IF<CNL*CNS. LT.NAX8UF) GOTO 50 
45 CALL SSUTCHd/ ISWl ) 

!F< ISy 1. HE. 1> GOTO 500 

CALL rtVL<' OBJECT TOO LARGE' / HBG7/ 20) 

CALL OUTCOfXOBH/ «SG7<10)/ 2) 

- CALL-4-VPE-4liBG7i^66) 

GOTO 500 
C 

C REAS IN CURRENT CHROHOSOHE 

50 CALL 21A<BUF. NAXBUf ^2) 

CALL 21A<HIS/ G4) 

51 CALL REAIKCHVB/REC/ INS< C) 

NSEC » C<2> 

Cl • 3 
C 

SO 60 NNxI/ NSEC 

6t < C LCI X *CNB4CCC4-4-LXX + -CNS-+-1 

N - C<CI+2) 

H2 « 2*H 

IF<BI. LT. l> GOTO 60 

C IGNORE POSSIBLE 6UFC FROn CHROME OUTPUT «*«* i**#**^ 

IF<BI. CT. NAX8UF) GOTO 45 

T F.LH J^T^ I .J3R-H tT-.l60 GOT 0- 45 .. - , , - . ...... . . 

CALL IlHi S' C <C1> 3). BUF <ei>/ PIS. N2) 

CALL MHIS^ C (Cl + N43). 8UF (BIRCHS HIS/ N2) 

60 Cl « c; 4 H2 + 3 
c 

PEC = c< n 

1FCREC..HS. aj COTO-54 - - 

cccccccc 

IF< OBN . HE . TOBH) GOTO 63 

ei * 1 
DO 

CALL PRT( I> BUF(BI)/ CNS) 

01= 81 4 CHS - - 

63 CONMNUE 

CCCCCCCC 

c 

BACK ■ DIR<D!)/2 
ITHRES • DIR<Sl4l)/2 

g ^ na ter- r 

HIS< t) 0 
SAT8 = ITHRES 
THRESH * ITHRES 
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E(^. » 72 

HIS<E4> » e 

HAX -»■ Q 

C 

I*I-TH«S^rM - 

F « HISC-l) 4 HI$(l) ♦ HIS<l4-t) 

IF^-F. tE. riAX-> aOM- €5^ - 

HAX > F 

» ATft « A 

ES CONTINUE 

THNES-N- •<B«R*8ACX-4^ »FCA'M^A«Mt#0- 

IF<OTTA0(O8N>. HE.O) THRESH»0rTAB<0ftH)/2 

7t CALL STREC}4(*fF&,~ST8LrTHRE8HrMfrX)- 

C 

C 02 » DIRECTORY INDEX CDI • CNRONOSONC DIRECTORY INDEX 

€DV CNfr - - 

Ct • 1 

CNL2 ■ CHL - t - - 

CNSl ■ CHS - 1 

4^HR4W>*-4:NRe^N<^ 

NLS > CHL2 - B 

HSB-- CHSl-B* 

BCN8 • B*CNS 

Q -• 

DO 308 L»i. CNL2 



ESI « ESI CNS 

C- ■ - 

218 If<I$EG(BI/BUF. THRE3H#EBl).EQ.B) GOTO III 
SDIR<CDI> « OREC+ I 
EDGE<1> • L 



E0GC<2> • S 

CAUr B^OTCH. SMC^BUFC-BD# TMRI^N^-CNBV . 

1F<N.EQ.B> GOTO 21B 

IF<OBN.Ca.TOBIO CALL RtSTXH# YlilH^KIUH» YNAX#7mAX> 

IF<0BN.E0.708H> CALL FDUHF(ED6l#tMB(24H)« 1> 

I F <K.GE r a BB > GO T O. 2 1 3 

CALL SORTlN(EDGE*H.SIND> 

iF<siMik-EarB> Go.i(L air 

213 1F<H.LE.SI2> GOTO 214 

CALL TYfEC* EAGr rVERFLOW TKRtrNaLB RAlBEr^l 

CALL TVFEr *> 

TH»f AH • THSrtH 4 . 

GOTO 218 

214 IFUSyLEQ O CALL TVFE<' SORT*) 

IF<I$y4.EQ. 1) CALL STIHER 

CALL $0RT<EDGE«H) 

2F<tS(J4. EQ. 1) CALL TlltER 

air--.- coNWHUfi 

IF<0BN.EO.TO8N> CALL FDUHF<E0GE«EBGE<2*N>« t ) 

IF<OBN.EQ.TOBN> CALL tLUT(L^ S»tNLrCNS#OBN> 

C NAKE SURE THAT OBJECT CONTAINS AN INTERNAL POINT 

IHTPHT » 0 
N2 • 2«N 

- .. -AO — a3B->E-**^ l rr-HaT‘4 — — 

Y ■ EDGE(E) 

IF<V.LT. Bl^OR. V. GT. HLIV GOTO IIB - 

Xt • NAXB(EDGE<E4t),Bl) 

xa • HiHBCEaot<r43>,Hsr) 

IF<X1.GT.X2) GOTO 238 

tBL,.Ji y.ACNS 4 XI _ 

I - BO - B 

c . .. 

DO 228 LEFT»I.BB 

lFUV(BUF-a«t))-.Hf.r)- GrTO- atl - -- ^ 

220 CONTINUE 

r 

221 RIGHT » BB 4 X2-XI 4 B 

...C. ... . . . 

DO 222 I«1#B1 

LfMV-tBttFCttCam.KE*J)-.GOTr-Ml 

222 RIGHT • RIGHT * 1 
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125 

223 LEFT » LEFT + 6 

- R-IGiiT-. -RIGHT 

IF<TCBN. E«. CBN) CALL IL I ST <X 1 . X2, LEFT, R ICHT/ Y> 

TFLL£FX..aT,RICHTi .GOTO--2-3S - 

C 

DQ_^aa-4 aLEF-X^ R I Gai 

TP « I - BCHS - I 

EP » I * BCHS- +- t- 

DO 225 LL»t,BCNS>CHS 

IF< TOBH.XQ.EBH) CALU lI^IETtTP^ER,ul.L.-XV-CeUF4-TP-*LL)4i. LyXBUF<SP-LC>X> 

IF(IV<BUF<TP+LL) ). EO. 8. OR. IV < BOF< BP-LL ) ) . £Q . BIGOTO 238 


ZZ 5 OOHXliUJE 

C THIS IS AH INTERHAL POINT 

IHTPHT * t - ■- 

GOTO 236 

C -- - 

238 CONTINUE 

_ . 245 COET-IILUE 

C 

C REHEVE OBJECT FROM BUF- 

236 HSEG « 9 


NP « 0- 

iOBN » 0 



C 

DO. 250- Es^t,-N2,^4 -- - 

V « EDGE<E) 

XI « EBGEXE+i > 

X2 » £DGE<£+3) 

^ Xi * i 

IF<NS.CT.0) GOTO 239 

GALL TVPEX' ROB - MS- L£ B' ) 

CALL TYPE(^0* ) 

CALL ILIST<E^N2,Xt,-X2,^*iS^ 

PAUSE 

. , .ao4o..R.sa_.- , > . - . - - . - . - ...... 

2 33 COK'HIUE 

hS2 - (NS+ I >/ 2 

eCI = ECI + 1 

ECI = ECI + HS2 +3 

IF<ECI LE. RECSZ2) GOTO 248 

C URITE OUT CHROHOSOriE LINE 

Ca> = HSEG 
OREC = OREC + 1 

CftLL «R! TEISMVB, OREC. C) 

HSEG « 8 

BCI- » a 

ECI = HSa + 4 

C - 

240 C(BCI) = CHLNl + V 

-- C<eCI*l> -- CUSN-t + Xl --- - 

C(eci>2) B HS 

— CAL I REH0V E < 8U F < Y < CHS* XI). C< eCI* 3L^ 8T 6L. W S > I08 M. THR E SH -^ 

HP ■ HP + HS 

258 NSEfr = NSeC-« 1 

C 

IF<HP,CC.-25-. AHlk-IXTPHI-v-liS.8>--CaTO^-2S0- - -- 

CALL SSUTCH(4/ ISU4> 

TF<ISH 4, HE . IX -G OTO 21 8 — - 

CALL QPRIHTC' OBJECT REJECTESM 

CALL ILT&T<08H.H.-HP.¥^RLH.J(I4L»LX 

CALL ILIST(YHAX-yHIH. XNAX-XHIN. L. S.NO 

TiOTO 218- - - — 

C WRITE OUT LAST LINE 

i88 O R E C = O R EC ^ 1 

C<1) » NSEC 

CALL URIT-E<CI4V8.-eAEG^C> -- 

C 

NO KC +-4 - - - - — 

HL a YUAN - YHIN ♦ 1 

MS- a XHAX NH I W 4 1 

lOON a lOBH - BACK«NP/4 

TTABTNC) a -THRESH 

LIP(HC> a CMLHl ♦ L 
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IOB(NC> » lOON 



P£R«(NC) a PERlrt 

CPLL SSUTCH-^^v iswe-) 

I?< is«0. HE 1 ) GOTO 280 
C PRINT IF SU9 IS UP 

GALL OUTCONCHC. THSG<4>, 2) 

GAL4. 0U^aK-4P E ft#4H&^>^T#8r G -<- 1 84^ 3 -> 

CALL 0UTC0N<BACK*2. TrtSG<I 7>. :j) 

CALL OUTCOH4imTA*2-. TH£G<2?>r3> 

CALL OUTCOH<BHAX*2. THSG<31 ). 3) 

CALL OUTCOHCCHL, T«SG<33)-4^> 

CALL OUTCON<CHS. T«SG<47). 4) 

. c AUU^aT CQ4KG44Ln4-*4^TnS ft< > > 5 -) 

CALL OUTCOH(CHSHl+S/ THSC<8e>/ 9) 

CALL aUTC0H^<H4..THS&<$5^>#5) 

CALL OUTCON<HS. THSC<7e).5) 

CALL OUTCOI4CITHRE8*e^TWSC<88-^^^) 

CALL OUTCOHCTHRESH, THSG<86). 3) 

CALL OUTCOH(NP/ T«SG< 102). 8) 

CALL OaTCON4^iaDtL^T418C<V14-)^9V 

CALL 0UTC0N<I0DH/<HP/8). THSG<116)i 3) 
CALL OUTCOtitHC^T«SC<t^^>. 2>- 
CALL QPRINTCTHSG> 128) 

C ENTER OSLJECT IK CHR0H0804E BIRCCTOftY 

230 SBIRCCDI + l) = CML + YMIK - I 

SBIR(CDI+2^ CHS + XKIN - t 
SDrR<CDi+3) * OREC 
CDl » CBl + 4 
IF<NC. EQ.HAXHOB) GOTO 518 

CatO 210^^- 

C 

300 CONTINUE 
530 = Dl + C 

C 

510 CONTINUE 



NK*SI)IR< I ) 

TEKP«P£RKC1 ) 

PERHCl )*C4 

\ C STORE NOB PARAKETER TEHPORARILY IN PERHUY 
CALL UPARAH(122/ HK. H06PH) 

R-ERK-CU^OXItR 

C WRITE HOB PARAMETERS 

. CALL HViK TTJ^B. SDIR-C241 Ya^0>- ~ 

CALL URI TE<S»V8/ 1» SBIR) 

CALL URIT^<SMVB. 2# LIP) 

IF< ISW0. E3. 1) CALL OPRINT('l') 

C4LL..CLQSE<S i i. W .B) 

CALL CLOSH<CttVB) 

END -- 


C <IMi 4. * 

C* NOS * CALMS VERSION 

C* * 

C 

C HOG NUMBERS THE RAW SPREAB WITH THE OBJECT HUH8ERSGENE RATED 

C-8V FOB ^ 

C 

SUBROUTINE N0BC&Mf4lT.FILPEK) 

IMPLICIT INTEGER(A-Z) 

COMHaN/CL^ KK/ LT^ ST.f I . - 

LOGICAL ORDER 

— BYTE ^EXL^-EX-CBJ 

C I/O BUFFERS 

BYTE IBUF2U2344), 0BfJFU2344) - -- 

C RANDOM AREAS 

INTEGER SPAR< 18) .. 

BYTE CHARC2) 
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^X-SAttPLE mp LiaE-TABlgS P08 OftilECJ HUHBEBS 

INTEGER $T<E0)^LT<60)^ TEHP(60) 

- HATA. Y/a/^X/4l/^Jt£PL/U. N<^ICP-Hxl3^ 

C 

..C-.IN-IT.IALIZE- JATA-S£TS 

C 

CAt-L SSMlIXH<K. l Sm^ — 

IF<ISyi.EQ.U CALL TYPE<' HOB') 

.--C - 

C REAP PARAHETERS 

-C - - 

CALL RPARA«(MP.NK, 122) 

lECPI.EQ.e) CALL APHftSE < HASiCe H) 

ZF<FI. HE. B) CALL PCLEAR 

C CLEAR THE GRAY SCALE UNLESS- F IHIS«XAA-UP - A-C43UNT 

CALL AFILE( IBUF2, PUHI T * F ILPEX/ 2/ 2 ) 

CALL AFILETOBUF. l.-'f 1C 

CALL 0PEN<IBUF2.6144. U0- 'SCN') 

CALL 0PEHCQBUF.E144Mi li 'HOB-t) 

CALL GLABEL<IBUF2. SPAR* 12) 

HLT-SPARTD- 

NSI»SPAR<2) 

N«»NSI/2 

Nl=*l 

CALUXLA-SEL <0BUR. SPAJUTaU F 2<-l 2*l ) 4 

C 

C SEE -IF LT IS IN--CRPER - - 

ORDERS. TRUE. 

1F(NK. LT.2) GOTO 45 
DO 40 N=2.NK 

1 EXLTX N-X-. LTU, TXU-^LX)-G0-XU^42 

40 CONTINUE 

-GOTO- 45 -- - - - - - 

42 ORDER*. FALSE. 

45 - -CONTINUE - 

C 

— C-AUH THROUGH EACH LINE OF THE PICTURE 

C 

DO-580 L*X,HLT-.- - - 

CALL CET<1BUF2,L. J2> 

CALL PUILOBUFv L. 0) 

CALL HVUaBUF2(I2^1 >#0BUF<04 1 >, Ntf ) 

C 

C GEHEf ATE NUMBER FOR EACH OBJECT AT APPROPRIATE TINE 
C . 

IF<HK EO. 0. OR HI .GT.NK) GOTO 210 

SO 200 H*Nl*HK 

LD=L-LT<N) 

IFtLD. GT.4)-X0X0. 200 

IF<LD GE. -4) GOTO 48 
IF<ORDER) GOTO 218 
GOTO 200 

•* 3 CONTI 

SD=ST<N)-13 

NCHAR-2 

IF<N. GE. 10) GO TO 50 

N.CRAR*! - 

SD»SD+6 

- 50 , IFXSD. LT. 1). SD»1 

IF<LD. EQ. -4) GOTO 75 

LE.CLD. £0..41-XQia ZB 

CALL OUTCON(N. CHAR<2)* 2) 

CALL TEXT.(CHAR<3tNCHAR)* KCHAR.* LUf 3* 0_BUF.<04SD>/.1 > 
CALL ITL<0, 0BUF<0+SD+64NCHAR) ) 

- . GO TO 200- - 

79 IF<ORD£R) Hl*Nl+l 

75 CALL.. LILflX0jL-Q.aUE:.ai t5DXa..6.<LHCUAg t U 

290 CONTINUE 

210-- I-F<FI. Ea.0)_ GaiO .500 

C NO DISPLAY IF FINISHING UP A COUNT 

.. CALL DLIHECOaUEi Q+ L), Y.X..KS1..PEPL- 0) 

y=y+REPL4l 

_5.0.a C OKJJJUJE 

c 

X CLUSE DATA SETS - - 
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CALL CLOSE<IBUE^> 
CALL CL 0 Se< 08 Ur) 
XLALL-XXJLI 

Em 


C INTI ~ INTERACTION 1 TO CHECK NOB OUTPUT AND CORRECT FOB ERRORS 



IHPLICIT INTEGER (A-2) 

CONHOH/Cl/ HK, LTAB^^^STAO. FI 

INTEGER PAR(19) / SPAR<S) . SST<513). NST <5 1 3> ^ TTA$( 1 33) > HPAR (5 
JNThCER XTAe<69)^. YTA8<«B>/LTAB<60>rSTAB<^OV,TEHF<6O^)^RPAR<t0O) 
BYTE A < 12344)/ BL ACK (5 12 ) / F ILPEX (9 ) # SPAR ( 20) / KEY< 26) / L I GH T< 5 12 ) 

BYTE BELLC3) 

EOUIVALEITCE <FAiTrBRAR>> <H€^ TT^i&42»:r <LT»&> TFA&<3>Tr<^P0/ TTA^(4>> 
EQUIVALENCE CHI, SPAR<1) )/ <HS/ SPAR < 2) ) 

DATA BEtL/^H-^^ 7, 0/ 

BATA HTINE/1000/ 

IWLA-»iAB K PN / 1 3 H O BPH^ ^ * & RA 0 ^ 1 ^ K QO H T - ^ ■ 1 1 3 ^/ -R O BP-H^ 

DATA HKEY/20// KEV/*H*/ ’ C S ' J ' , » / * T ' / ' A' / ' F ' / ' S ' . ' I " > * N ^ 

1/^ U-^.r^ fl^ « / ^ *^0^/ 

NFLAG^l 

G ALMATS^ SET HFLA^C I 

C FLAG TO CALL NOB FOR A FINISH COUNT 

C A LL ITLA<32 > LIG H T/ S I2) — 

CALL ZIA<UHir£/4) 

C ALL NVL <-' DN=^<m. eACK*#*^- ^ 

CALL NVL<' DH»*** THRESH»»*# */NT«28) 

CALL TIVL< 

HS< 19)«0 

N . T - < - 2 -t) ^ 

WK<8)=0 

rerun»o - 

CALL TYPE<"0CHECK SPREAD'/ 0) 

HK=^eL 

CALL RPARAH<NRP/ RPAR/ tB0/ROSPH) 

CALL RPARAN<M^^-NiC^i22/>WBRN-) 

IF<HP. EQ. 0) Fl=64 

CALL DCOU^HT(HIC^FI) - 

C DISPLAY THE COUNT 
20 CALL ITLA<32/G«SG/-12B) 

CALL RCA 

C R EAD-XURSO R AnM ^ liZMXS 

CALL AFILE(A. DUHIT/ FIL.PEX/ 2/ 2) 

C OPEN SCAN DATA SET AMD READ TTAB 

CALL OPEN<A/ 5144/ 1/ 2/ 'SCN' ) 

CALL GLABEL<A/ SPAR/^ lA) 

CALL NVL< A< lA + 73), GrlSG. 64) 

LABE4^F0R-PTT^FI-E4«^4^«WT 

CALL GET<A/ SPmR< l)+l/ lA) 

CALL «YU< A< lA+UrTTAS/ 13^> 

25 CONTINUE 

CALL PARA«<NP/PAR/10) 

30 1F<NP. EQ. 0) GOTO 1000 

3^ 1 - ) -. £ Q- . TO 00 

IF<PARC1).E0. ^SM') GOTO 85 
Da 50 K=l/^HK£^ _ 

IF(IV<BPAR(1)).NE. IV<K£Y<K))) GOTO 58 

aaro <98/ 100 ^ 200 / 30a/.40a^5a8* 600 / 700/080/ $ 50 ^ 908 / 918/ 920 / 030^940 
1/1160/ 1200/ 1380/ 1350/ 14 08) / K 

5^0 C0M^4T4UE 

60 CALL TYP£(' PARANETER ERROR') 

CALL TYPE 4' 0' 

GOTO 25 

80 COMTINUE - - 

C RS - RESCAN 

. r 

call HPHftSE<n 
CALL CL06E<A) 

CALL EXIT 
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85 COHTINUE 

C 

C- SN- - 4K-IP WOS- ' 

C 

CALL APHASEUa) 

CALL CLOSE<A) 

P J 1 <7 J I" 

90 CALL TYPEC TYPE ONE OF THE FOLLOWING KEYUORDS TO SELECT AH OPTION') 

CALL TATP-E-<-i-0-— 

CALL TYPEC C - COT APART A TOUCH (POSITION CURSOR FIRST)’) 

CALL TYPE^^t J JOLiL TOC- P lECCS TOGETHER <U-SE--CURSOR) ' ) - 

CALL TYPEC T - CHAHGE THRESHOLD (USE CURSOR)') 

CALL -TYPE CL -B CHANCE- 6 ACK£(tOOH»--ClLSEL-CURSX)Ri!i 

CALL TYPE(' 3 - SET UP THE CURSOR TO CORRECT FOR DRIFT') 

C A[1 TVPF<’ A - .tangT THIS SPRFAD_'_) — — 

CALL TYPE(' RS - RESCAN') 

CALL IYPE-(’ F FINISH- THIS -SPREAD -(-HO- KARY-OI-YPE) 

CALL TYPE(' F, HH - FINISH THIS SPREAD; IT HAS HN CHRONOSOHES' ) 

.. CALL- TYP-ECL -I- -r- DIEPLAY--XHE-IJJI-UAL--(aH--HUftBERED) -SPREAD') 

CALL TYPE!' H - DISPLAY THE NUNBERED SPREAD’) 

C AH TYPFf' F - FBASF THE I A ST CUT AB .iniH BFB U EST -D 

CALL TYPE(' U, D, L, OR R - NOVE THE CURSOR OP/ DOWN. LEFT, OR RIGHT') 

CALL-XYPEC-'--X-^XHT-E5tAC-tIXE-XOUat--UItB-XURSJ)R- -AMD- DELL-'-) 

CALL TVPE(' H - ADD A KISSING HUMBER (ONLY FOR COUNTS)') 

CALL__TYP.E.C X--r. PENOVE-im. EXTRA -MUJ5B£R--£aNLY-P-OP-COUNT5^X 

CALL TYPEC Z - ZERO THE CHRONOSOHE COUNT') 

CALI TYPF(' Sn - SKIP MOB, (USE 01 D RCR)’> — 

CALL TYPE(’ OT N, T - SET THRESH FOR OBJECT N TO T ' ) 

-- CALL TYPEC'- IF SPREAD-XS- OtC TYP-E -CARR-lACE -RETURN-' ) - 

CALL TYPEI'B' ) 

GOTO 25 

C 




C 

100 


LD5- 


C ALL CUftSORCY t / X I, SL- SS) 

CALL TVPE('+HOVE CURSOR TO END OF CUT 

DO 105 J=-l/2 - 

DO 105 1 = 1,3 

-CALL DL 4 .HECD H1TE ,-Y 1 - ^ 2 * 1. Xt- =1 , 3>0. 


,8) 


C NARK THE FIRST ENDPOINT 

118 CALL PARAN(HP, PAR, 10) - 

IF(HP,EQ,0) GOTO 120 

P=PAR< 1) - 

If(P EO 'U 'OR.P.EO.'O ' . OR. P. Ed. 'L 'OR.P.EO.’R ') GOTO 115 

IX cP-NE^-!-E- i -G0I0-U0 

C ERASE THE MARK IF E UAS TYPED 

DO i 12 1=1,3 

112 CALL DLINE(255, Y1-2 + I, Xt -1 , 3, 0, -1) 

GOTO 25- 

IIS CALL UDLR(PAR) 

GOTO 118 

-120 - --CONTINUE---- -- 

CALL CURS0R(Y2, X2, EL, ES) 

CALL ADL($L,SS,EL, ES, SST/NST, HL-.HS) - 
DO 135 L=SL,EL 

-Xa&«-(L.^-1) 


X»2*(SST(L)-1) 

CALL DLIHECLIGHTv V, X, H3TCL), 1.6) 
CALL PARAHIHP, PAR, 16) 

- IFCIVCBPARdD.NE.ERASE) CatO- lSB 

C RESTORE THE DATA IF E HAS TYPED 
BO -155 .U“SL, EL 
V \ L . • 

X=2*(SST(U -1 ) 

CALL DL1HE<127,Y,X,MSI(L), 1, - D 
GOTO 25 
RERUN* 1 

CALL GET( A, L, IB) 

CALL PUT (A, L, lA) 

WE IB) PAUSE 55 

CALL ) 

C WRITE ZEROES IH THE DATA SET 

- 


t35 

140 


i55 


158 


i / 5 
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c 

- e 0 — JOIN -Tli^o Pieets T&GE4tt«l 

c 

- 2^0 COWTlNUf--- - 

CALL CUR30R<Yl.Xl.St.SS) 

C A IL TYP g (* 4>H 0VE to £ H V OF JQi *4 * t^ ) 

BO 205 1 = 1,3 

20^5 CfrLL BLTHE<25^5,'l^l-24-t, Xl-^l,-3, 0,-1 V-- - 

C HftRK EMD-POINT 

2V0 C(^L-L PA^RlWKW,-Pf^R,-10> 

IF(HP, EQ. 0) GOTO 220 

PL^ P A R< 1) : 

IPCP.EC.^U '.OR.P.EO.'O VOR. P.EQ. a OR. P.EQ.^R 

IF<P.^E^.-^E- ' > «OTO- 22-0 

C ERASE THE HARK IF E MAS TYPED 



212 CALL BUHE<WHlTE,Yl-2 + I,Xl-l,3/0,0> 

G OTO 2 -5 — 

215 CALL UBLR<PAR> 

GOTO -210 - - 

220 CONTINUE 

C ALL CUROOft < V2,X2,-EL-rES-) 

CALL ADL(SL,S3,£L, ES. SST,HST, NL,HS> 

4> 0--^5- 4 -^SW£4= 

Y=a*CL-l ) 

- X=2*T-S&T<-t)-l> 

235 CALL DLINE< 127, Y, X, HSr<L), ^ -1) 

C- ERASE Ot+ THE GRAY scale Ta-I^D4GA-TE TT4E--J0^lM-LTKt 

240 CALL PARAMCNPr PAR, 10) 

4.T^,4V.Z4 ;P AR< rHE ^ A SC ) G OTO 2» 0 

DO 255 L=SL,EL 

S=SST<L> - -- 

CALL G£T< A, L, I A) 

2 55 CALL BLI HE< A< T A + S) , 2* <L - 1 ) , 2 >M S-l-)-, liST < L ) , 1-^ 0) 

C REliFlTE THE DATA 

4.0W-25- 

2-38 RERUN=1 


275 

— 


C- 

C 

C - - 

300 


BO- 275 L=-SL,£L - 

CALL GET<A, L, I A) 

CALL PUTCA^L, TAX 

CALL ! TLAU27, A< TA + SST(L)),NST<L)> 
GOTO 30 


B - CHANGE BACKGROUND 
CONT INUE 


CALL GETf A, L, lA) 

CALL OOTCaN4lV <A Cr A^C) > , nB<7) ,-3^X 
IT=(L/LPS)*HC+S/SPSH 

I F(S>^SPS. EQ-. NO - lT = lT-4-- - 

CALL 0UTC0N(TTAB<E9+IT), 3) 

rCti I T VPf: (Hfk, Pi > 


BOR I 

C SET TO CHANGE BACK 

320 CALL PARAM<NP, PAR/ 10) 

IFCHP EO. 0) GOTO 25 
IF<HP GT . n GOTO 35 

IS i P AR-( i V .. CT.- T^7--= 0 R P A« C4X-.LTU-0 X-OO-W 

TTaBCBORT>IT)=PAR 
CALL GET<A/ SPAR< l) + i/ lA) 

CALL PlJT^ A. SPAR< 1) + !/ IA> 

CALL NVU. TTAS, A<IA+1>, 133) 

RERUN=1 

^OTO-^5 -- — 

C 

C T “ CHtXHGE THRESHOLD - 

C 

400 COHTIHUE - 

IFaV<MT<7)>.HE. GOTO 440 

C^JSaTCL-440- I E— L41AS ALREAIiY REOUESIEJ 

C DISPLAY THE SECTOR BOUNDARIES 

- BO 419 L = LPS, HL/ LPS - 

418 CALL DLIHE<WHITE/L + L, HS + «S,8, 1, 0) 


> GOTO 215 
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d 1 

. -CALL IT1.A-C127.-BLACXp51Z)- 

DO 415 S=iSPS. NS. SPS 

Rt ^ sft 



DO 420 1*1. 5 

CA L L - HL lil E-C BL BCK ^ J1 L+Jit *4- ♦X*r2.. 0^ HS * * t ^ B X - - 


440 

CONTINUE 

..-.CALL. CUPSORi.^. 

CALL CET<Ai L. lA) 

f!RI 1 nUTrnM f T V TR r IR+R ^ 1 . RTT7 1 . 3 > 

— 


IT*<L/LPS)«NC+S/SPS+1 

TP/<lyQPR r<l Hr^ TT«IT-1 



COLL OUTCON<TTOB(4tIT).HT( 18)>3) 

C.ALL TYPE-CMT^a) - - 


SE-Tl 

S0ftT*4 

7fl THRMflP THPP<JH 


0 

GOTO 320 


C 

r 

A - ABORT 


see 

CONTINUE 


IS90 

c 

C F - 
- C IF U 

RERUN*0 

GOTO leaa- - - - - 

CONTINUE 

FINISH KEYWORD 

- 

IF<NFLAG.NE,0) GOTO 618 

lOa^ WILL BE CALLED CaTG Gia - -- 

CALL APHASECNASKPH) 

CALL CLOSE<A) 

CALL AFILE<A. 1. 'PIC '.5.5) 

r*AI « ADri>W A . c; < O A. D . > UAR ' \ 

■■■■ -- - ■ 

C SET 

TO ADD HK TO NOB OUTPUT LABEL 

Cfl-T-0 £ PA ..... ..... . _ 


610 

CONTINUE 

-PI*0- _ . _ _. . . 


5r T 

CALL UPARANU 22. HK. HOBPH) 

Tn TAi 1 AUJL JJOJ- PUT ILP T UC 1\ T CPI AV 


CALL APHASE<HOBPH> 

«2a IF<HP. Ea.^X HJC*PAR<3V 

C USE OPERATOR SUPPLIES COUNT 

CALL OUT COM < HK ^C«SC<t«)^4-)^ - 

C CONVERT HK FOR GHSC 

CAL-L-.K.VU<1GMS&^ TEHP* 60>. 

TEii,^-; -“50: 2 

C IH-it:- T LF LF 

CALL TYPECTENP, 79) 

CALL GLA0EL4A7 SPAftr lA) 

CALL NVLCGHSQ<67>7 AdA + 290)/ 2> 

r^SII DIAOCI/A. CD AD A / TA ^ \ 


C INSERT NK IN THE LABEL 
630 CALL CL0SE<A> 

CALL AFILE<A/ 4, 'PDATA '.6.6) 

CALL OPEN(A^ 5i2, 0. 2. 'PRP'> 

CALL GLABEL<At SPAR. 1A> 

Ut j. i - - . — 


CALL PLABEL<Ai SPAR. A< lA+i) > 



L hL-L - U c T \ H7 KL - ■' — - ... .... - . 

CALL MVL<GNSG. A<IA+l). 128) 

rAI L PILT/.A.JML . . - 



PAft< l)«'KG' 

p AD < ^ eftnUT T _ _ _ 


700 

CALL MVKFILPEX. PAR<4)- 10) 

CALL- UPAELAM-C8^PARv4!|ASKPH-X 

CALL CLOSE(A) 

-CALL -EX-IT - 

CALL SC 

._GCXC~^^5 

- - 


c 

- C JilSPLfii- THE W^ITHOUT OW£CT -HUWMftS 

C 

8 0^« - CW-L fiCLE4^R 

FI = 64 
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C RESET THRESH INDICATOR 



CALL CET<A/L. lA) 

- 820 ^ALL -DLIHE<A<4A4^l)-r2%(L-i),-0, 

CALL DCOUNT<NKiEI) 

Cx O^O - 2 5 

C 

- G- DISPLAY THE H0B-4T0TPUT- 

C 

850- FI *^6 4 

CALL UPARAH<122. HK, HOBPH) 

C^ALV-APH ASE < HC & PH ^ 

CALL CLOSE<A) 

CALL EXIT 

$00 CALL HCU 

GOTO 25 

9t0 CALL NCD 

- --GOTO.-2-5 

920 CALL MCL 

■ - - GOTO- 25 - 

930 CALL NCR 

GOTO 25 - 

940 CONTINUE 

C INTERACTIVE COUNT 

C 

945 CALL CURSOR(Y0,X0/L*S) 

DCL 947 I*^1.44T4HE 

CALL CURSORCY/ X. I, S) 

947 CONTINUE 

C CURSOR HAS Nat rtOVEH I-N A 0HT4.e 

IF<y.LT. 24.AHD.X.GT.I000) GOTO 995 

C IF UPPER RIGHT i;0-T0- 995 

CALL CURSOR<Y/ X. U S> 

TF^ y J'.T 1000. AMB^X. GT. 100»> GOTO 978 
CALL TYPE(BELL.0» 

C RING THE BELL 
NFLAG^l 

IF<Ni<- LT 60) NX=5NK+1 
CALL DCOUNT(NK.FI) 

. . YTA&CHlO^y - - 

XTAG(N}0=X 
LTAS<NK)=L 
STASt;:iK)^S 
DO 950 J=i. 2 
DO 950 3 

960 CALL CURS0R(Y2,X2. LiS) 

IF<V2. Ea.V.AND.X2.E0 X)^ GOTO 9G» 

C BAIT FOR CURSOR TO BE HOVED 

GOTO 945 - 

970 CALL OUTCON(HK,HK(6), 2) 

CALL TYPECHtC.B) 

IF<NK. LT. 2) GOTO 25 

C ORBERl THE T4BLE 

DO 990 M = 2, NfC 

LF< LTAGCfcU, G£. LTAB^CH-IT) OOTO 990 
LTN«LTA8<H) 

DO 980 Jsl. H 

IF<LTN. LE.LTAB(J)) GOTO 985 

33^ C-ONTIHUt-- - 

985 NN0V=N-J 

CALL nV14<TTA8jC.4)v TENP..KJ1GV) 

LTAB<J)=LTN 

C-ALX,-N-ViU.T£nP.J.TAB(U^n. HNOV) 

CALL MVU(STAB<U). TEHPrHHOV) 

- STABTa)-STA8<H) - -- 

CALL NVB<T£NPi STAB< J4 1), HNOV) 

990. CONTINUE - - --- 

GOTO 25 

39.5. COU-UiU!£ 

C ERASE THE LAST SPOT 

DO 997 J-U2 

DO 99? 1==^!, 3 
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997 - CALI DUH-E< 127* YTAB <HK) •^2+ L- XTA&<NK) - I ^3.-9. 

IF<HK GT.0> HK=-NK-l 

CALL DcauHJcatc.*F.n 

GOTO 960 

1009 CALL CLOCECA) - 

IF<J?ERUH. GT. 9) CALL APHAS£(2) 

CALL EXIT - -- 

C 

-ixaa couTii4U£-_ 

c 

C -H-PARAHETER - ADD A HUHBER FOR THE «I SS l«C OBJECT - - 
C 

HFLAC*! ---- 

IF<NX. G£. 60> GOTO 60 

CALL CURS-OaCt^X/LiuC.) 

fiO 1119 J»l/2 

00-4UC-I-^l*-5^ -- 


1 I 10 CALL DLIH£<yHXTE* Y-3^I*X-2*5* 9* 0) 

00 1120 

IF<L.LT. LTAB<N)) GOTO 1130 

.LUO COti T I H UE — 

LTAB(NK+1)»L 
STABCHK*1>*C 
GOTO 1149 

M30 H«OV«NK-W^'l 


CALL MV«<LTAB(H>. T£«P,HHOV) 

CA!U_ tl¥»<_TE«P. LTA&<H+ O*.HH0V> . . 

L T K J . 1 ^ L 

CALL MVG(S7A8<H>* TEHP*M«OV> - 

CALL HV«<T£MP* STAB<M+l)* NMOV) 

STAB<N>»C 
I 148 NK=HK+1 

_^^L_0GCmT4HK-rf4) 

GOTO 25 

1208 COHTINUE 

C 

C X PAPAHETER — REMOVE ONE OF THE HOHBEREO OBJECTS - 

C 

- HFL-ACM 

IF<HX. LT. t) GOTO 60 

CALL CURS0R4Y* X* L/-S> --- - 

MIH»20 

C FlHO THE OBJECT CLOSEST TO L .-S AHO HO MORE - THAH 29- AOAV- 

DO 1229 N»I*HK 

jU S^ lA BS^L T A9<N > -C»^ I A8-S4 STA B<H X ^S> 

IF<DIF.GT.HIN) GOTO 1220 

- 

NMIN’H 

--- l^20 COKTIHUE 

IF<HIH.£Q.20) GOTO 69 

HjOULTH 

Y«LTAB<H>«2-2 

X«STAB<H>j>B-2 

IF<X.LT. 7) X*7 

00- ia4a-jj«i*-2 

DO 1240 I»l*9 

L24B CALL- -SLIHEUBZ* 0> =r|,) 

C ERASE THE OLD HUMBER 

HnaV=HX-H 

IF<HMOV. EO. 0) GOTO 1250 

CALL-MV«4LTAB<H-tl)-ALTAB<>l>^HH0VX - 

CALL MVy(STAB<K+l)* STAB<H)*N«OV) 

-tisa 

CALL DCOUHT<HK,FI) 

GOTO 2S 

C 

C 2 - ZERO CHROHOSOHE COURT 

C 

lb 80 

GOTO 25 

C Q - OUICK COUNT 

C - . . . - - . 

1350 PAR< TO' 
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CALL ypARAM(3. PAR. 2) 

CALL 

CALL li»PARAM(122. HK> K08PH> 

CALL GLOCE<A) 

CALL EXIT 

- C -aU-LCI^ 40UW-1L- 

C 

C OT SET 4)BJECT THRESHOLD 

C 

1408^ CALL RV0<FAR^RPAR<4<RP+4)^4-> - 

HRP»KRP+4 

RERUH»1 
COTO 25 
END 


C 

C 

C 

c 

c 

c 

c 

c 

C A) 
C 

c 

c 

c 

c 


c 

SUBROUTINE HOB 



C0Kn0N/Cl/H08. ISIR 

COHMON/Cl/CHSIK. SHLBUF, LRGBUF.MSi NL> CUROtH 

COHHON/Cl/ SST. EST 

COHMOM/Cl/SPIOB. SPLTH. SPARER 

C 

SHALt SUFFER, FOR HOLB'tHG ROTATES. UNHAGHIFIES OBJECT 
BYTE SHLBUFOO, SB) 



c 

LARGE BUFFER, FOR HOLOIHC UNROTATED OBJECT 
BYTE LRGBUFOe.SB) 



c 

BUFFER FOR 1^0 

BYTE BUF(2124) 



c 

BYTE 0BUF(2124) 
NUMBER OF INPUT OBJECTS 



c 

INTEGER NOB 
SYSTEH PARAMETERS 




INTEGER SPAR<5> 

EQUIVALENCE <SPAR< 1 >. HLI). <SPARC2>.HSZ ) 



c 

PARAMETER DEY FOR DECODIHC 
INTEGER NKEY, KEYO t ) 



c 

ENDPOINT TRACKERS <8 FRACTIONAL BITS) 

INTEGER XniH/ XHAX. YHIN. YHAX. XSHIN/ XSHAX. YSHIN. YSHAX 



c 

STARTING 1 ENDING SAMPLE TABLE 
INTECER*2 SST(88>, EST<88) 



c 

c 

RANDOM AREAS 

RETURN CODE FROM ORIENTATION SUBROUTINE 



c 

_c_ 

INTEGER RCODE 
RADIAHS/DEGREE 
PEAL RPD 

OPERATOR SPECIFIED CEHTROHERE POSITION 



c 

c 

INTEGER OPCEHCSB) 
OPERATOR FLIP FLAG 

LOGICAL OPFLIP^B) 
OPERATOR SPECIFIED ROTTATION 



c 

INTEGER OPROT<60) 
CEHTROHERE LOCATION HETHOD 



c 

INTEGER CLNETH 
SKELETON FLAG 



c 

LOGICAL SKFLC 
SKELETON SUITCH 



c 

LOGICAL SMSK 

SKELETON ROUTINE PARAMETERS 




4t 4::f! t: # 

♦ • 

♦ NOB ♦ 

* 4i 

^ % it « 4: « # ♦ « 


HOB PROVIDES: __ _ 

THE ORIENTATION HECHANISNS. EACH INPUT OBJECT 
S FIFI^ST EHCLOSED IH A HIHIHUH ENCLOSING RCTANCLE. THEH« THE OBJE 
IS ROTATED INTO TH INDICATED dRIENTATlbN . H'EASURED 
AND THEN URITTEH OUT. HOB ACCUMULATES A CHROHOSOE 
D I R C TO R Y E C ON T A 1 N I H G T H E' R E'S U L t S ' O F' TH E' ' 'H E AS UR EH E NT S ' ' 
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INTEGER SKHIH/ SKSEUT 
C PI 4 Pl/a 

REftL Pi, PIHPLP 
C DELTA THETA 

i?EAL DELTA 
LOy CAL. L4 

ilTECEP SECLTH 
IN'EGER ELK, 8S,SL 
C CURPEHT OUTPUT LINE t 

INTEGER CUR0LH,BL, CHREHT 
C PARAHETEfi AREA 

INTEGER PAR(568) _ _ _ 

EQUIVALENCE '< PAR, l'r'CBUF ) 


C 


c 

INPUT DIRECTORY 



u 

INTEGER lDIR(4/60> 

PTRS~ 9L0C.^ iJRITTEH 

INTEGER 

MINIMUM LIKE. . .. 

INTEGER ML 
MIMHIUN SAMPLE 

INTEGER HS 
LftST BLOCK NRITTEH 



c 

C 

c 



- 

.. c 

INTEGER LBN 



c 

r 

CHROMOSOME DIRECTORY AND ITS FORMAT 



y 

c 

INTEGER CHDIR t 15, S8) 

BLOCK NUMBER OF 1ST LINE OF OBJECT 



__C- 

INTEGER BLKHO 

HUMBER OF SAMPLES IN OBJECT 



. c 

INTEGER DIRNS 
NUMBER OF LINES IN OBJECT 



c 

INTEGER DIRHL 
LENGTH OF CHRORKOSOKE 



c 

INTEGER LENGTH 
INTECERATED OPTICAL DENSITY 



c 

INTEGER lOD 
CEHTROMERIC INDICIES 



r 

INTEGER CIL,CID,CIA 
CENTROMERE LINE HUMBER 



c 

c 

INTEGER CENLIH 
PERIMETER 

INTEGER PERIH 

AREA 


-- 

c 

INTEGER AREA 

PERIMETER SQUARED DIVIDED BY AREA 




INTEGER PSQ9A 

C CENTRONERE LOCATION NETHOD 


INTEGER CENETH 

c MnirnuN and naxinun areas for chronosones 

INTEGER HAXOA,HIH6a 

C. , ?E G fi EE S/ R OT A TiON_i N CREHEHT 

c saSpLe ACCUNULATORS 


INTEGER DENACeS). AREAA<88). ACC< 170 

E«0! VALENCE CDENAO ), ACC < 1)), <AREAA(1 ), ACC(89>) 


TOTAL AREA AND TOTAL DENSITY FOR H0RNALI2INC 


INTEGER TASEA, TDEN 

ACCOnULTORS FOR CALCULATING CIA AHDCiD 
INTEGER CDEN.C AREA 


SPREAD HEASURENEHTS 

REAL SPIOD, SPAREA,SPLTH 
SHORT ARH INDICATOR 
INTEGER SHRTA 
RANDOH AREAS 
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INTEGER CEN. CEHPl. S.PER 

_RErtL 0PINC 

BYTE EH<28) 

C REilEftSUREflENT CHROMOSOME SELECTOR 
LOGICAL SELFLG. SEL(SB> 

C 

C BATA STATEMENTS 

C _ 

DATA DPiHC/2. 8125/ 

DATA MAXCHR/68/ 

DATA NKEY/il/, KEY/'AR'* ' RO ' * 'FL', 'Cl'. 'LM'. 'SK'. 'SP'. 'SE'. 

- 'LDS . 'HD'/ 

DATA SICHIN/16/.SKDELT/2/ 

DATA 1 D/ 3 /> RPD/. 01 7 45 3/. P 1/3. 14 159/. PI HALF/ I . 5788/ 

DATA F9B/1/.HL/2/. HS/3/. LBU/4/ 

DATA DELTA/. 05236/ 

DATA 'SKFLC/VPALSE: / “ ‘ 

DATA BLfCHO/1/. DIRHS/2/, DIRNL/3/. LEHCTH/4/. IOD/5/. ClL/6// Cl D/7/ 
DAT A C I A/8/VC ENL IN/ 9/ . PERI «/ 1 0/ . AREA/Vl //PSQDA/l 2/. CEHET H> 1 3/ 
DATA OPFLIP/60*. FALSE. /. CPCEN/Se+O/. OPROT/68**/ 

DATA HAXHL/89/.HAXNS/8S/.CHREKT/15/ 

DATA SELFLG/. FALSE. /. SEL/68* . FALSE . / 

CALL MVLr OBJ ♦♦ REJECTED 
C 

C INlTrALIZE SPT5EAD MEASUREH^^ 

C 

SPIOD=0 

SPAR£A=0 

SPlTH^O 

CUR0LN=3 

NC=0 ■ ■ ■ 

. ^ 

C 'iNITrALriSE'CHROHOSOnE DIRECTORY 
C 

CALL ITIA(0,€HDIR, HAXC«R*CHREHT) 

HINOA*30 

MAXdA»2090 

C LHETti=»88 

■'S«SK = . FALSE. 

C DEFAULT IS LW - NO SKELETON AND WIDTH TO _ LOCATE .CEHTRO.H ERE ^ 

C 

C RETRIEVE PARAMETERS AMD DECODE 
C 

9_5 _C_^L RPARAHCNP.PAR. 500 . 8) 

IP*i' ' 

10 IF< IP. GT . NP ) GO TO 50 

IPN=«PAR(IP^2) 

DO 12 J^l.flKEY 

IF<PAR(IP). EQ. KEY< J)) GO TO < 15. 1 8, 2 1. 24. 32. 48. 45. 47/ 5 1/ 54/57 ). J 
12 CONTINUE 
C 

C INVALID PARAMETER 

c ■ ■ 

13 CALL TYPEC' *** PARAMETER ERROR') 

GO TO 95 
C 

C PARAMETER AR - SET MINIMUM 4 MAXIMUM OBJECT AREA 
C 

15 MINOA-PARnP + 2) 

fiftX0A»PAR<IP + 3) 

IP»IP+4 
GO . TO 18 


C PAShMETER rota - ROTATE SPECIFIED OBJECT PRESCRIBED AMOUNT 
C 

18 IFdPN. LT . 1 . OR . IPN . CT . MAXCHR) GO TO 13 

K*PAR< IP+3)/DPINC 

_ _ 0_PP0TdPH)j=K + 4 

19~IP==*IP + 4 
GO TO 10 
C 

C PARAMETER FL IP - FL I P SPECI F I E D OBJECT 

C 

.2 1 ^LJ 0 R , . GT. MAXCHft ) GO TO 13 
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OPFLIPUPH)^. TRUE. 

00 TO 25 
C 

C PARAHETER CIL - SET CENTROHEfilC INDEX 

24 IF<lPN.LT/l.OR\lPM.GT.«AXCHft> CO TO 13 

OPFLIP<IPH)». FALSE, .■ 

25 0PCEH(IPH)*PAR(IP+3) 

GO TO 19 , _ 

C 

C PftRrtETER ty - LOCATE CENTORHERE BY BIDTH 

c ' ' ■ 

32 CLHETH=«88 

SySK = . FALSE. 

IP-IP+2 

GO TO 10 

C 

C PARAliETER SK - OUTPUT SKELETON PXCtORES 

_C 

48 SKFLGe.TRUE. 

IP=IP + 2 , 

GO to’ 10 

C . 

C PARAHETER SP - SET SKELETON PARANETERS 

j:_ 

45 SKHIH=PAR(IP+2) 

SKBELT»PAR<IP^3) __ ^ 

IP«=lP+’4 

GO TO 10 

£ PARAMETER SE - SELECT CHRONOSONES FOR RENE ASUREWENT 

C NOTE - THIS PARANETER ASSUMES THAT A CHROMOSOME DIRECTORY 

C EX ISIS FROM PREVIOUS NOBBIH 

C 

47 K»PAR< IP-i-2) 

IF<K. LT. 1 .OR. K.CT. 69) CO TO 13 

SELFLGs. TRUE^ 

IP^IP+3 
DO 48 H=l.K 
L-PAR< IP) 

IP=^3P+l 
SEL<L)=*. TRUE. 

_4£_ _CONTINU£ 

GO'TO'10 

C 

C PARAMETER LD - LO CATE CENTRONERE BY DENS 
C 

51 CLMETH-0 

_ Sy SK » . FALSE. 

lP^IP+2 
GO TO 18 
C 

C PARAMETER MB - LOCATE CENTROMERE USING WIDTH AND MODEL < SKELETON) 

C 

54 CLHETH * 88 

IP- i P+2 
SU$K=. TRUE. 

GO TO 10 
C 

C PARAMETER MB ~ LOCATE CENTROMERRE USING DENSITY AND HODEL(SKELETOH) 
C 

57 ■ CLIIETH =0^ 

IP:=IP+2 
S«SK=. TRUE. 

GO TO 10 
C 

JL0P_EH^PMA sets 

C - - 

50 CALL APILE<£)UF/ 5/ 'OCR '."IS. -13) 

CALL AFILE<OBUF. 'RCR *,-l3."13) 

CALL OPEHCBUF, 1024> 1, 0. 'UCR' ) 

CALL OPEN(OBUF, 1824, t. 1, 'RCR' ) 

CALL GLA8EL(eUF^ SPAR. IB) 

SPAR(1)=«125 " 

C PUT MAX HL IN LABEL SO COPY BILL HOT CAUSE F374 
call; PLAeEL<OBUFVS?AR.BUF<iBM) ) 
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c 

_c 

CALL G£T<BUF. !. IB) 

CALL HVL<BUF< IB<M)/ NOd. BAXCHR«6<i-2 > 

' CALL GET<BUF/2 

BO 55 

55 C HS I R < PE R frt; I ) » I V2 < BO F < I B+ 24 1 + < 1) ^ 

IF<. HOT. SELFLG) GO TO 60 
"C 

C READ PREVIOUS HOB RESULTS IF SELECTIVELY RE-NEASUREl NG 
CALL G£T(OBUF> U IB) 

CALL «VL<dBUF< IB+3)YSPI0B^^^ 

CUROLN«I V2<0BUF< I8+15)) 

MC»IV2<0BUF(IB+T7) ) 

CALL HVL<OBUf <IB-f>3t)^CHBtRCl» l>.2*tS*39> 
call GET<03UF.2riBy 

CALL HVL<OBUF< IB + 31 >. CHBIR(1» 31), 2*t5*36) 

60 ' ■ COHTIHUE 

C 

C“"' 

C MAIM PROGRAM LOOP - EXECUTED ONCE FOR EACH OBJECT TO BE MEASURED 
C ' 

C 

DO 580 N»1 > NOS 

IF < . HOT. SELFLOGO TO 70 

IFC . HOT. SEL<N) > GO TO 506’ 

SPI0B=SPI03-CHDIR< IDS. «) 

SPLTH«SPLTH-CHDIR< LENGTHEN) 

SPAREA=SP AREA -CHDIRC AREA. H) 

NC=HC-l 

70 - _ _ _ _ . 

C 

C INITIALIZE STORAGE FOR THE OBJECT 
C 

CALL ITIACBS. SST.MAXHS) 

CALL ITIACe. EST. MAXNS) 

CAL L ITIA Ce.LRGBUF. 08*9 0/2) 

NL>8 

NS=0 

C 

C READ 4 PROCESS OBJECT BLOCKS 
C 

KK»B 

'iud" 

BL^O 

IFS=IDIR<FBU/ H> 

ILB«IDIR<LBy. N> 

«INS=»IDIR(MS. N)-l 

j: 

C READ EACH BLOCK OHE BY OHE 
C 

DO 145 BLK^IFB. ILB 
CALL GET<eUF. BLK. IB) 

HStC =I V2(BUF< 18+1) ) 

Il*J8+j3 

C 

C PROCESS EACH SEGMENT UITHIN THE BLOCK 
C 

DO 140 I1«1.NSEG 

IF<IL. EQ. IV2<BUF<II>)> GO TO 116 

1L^IV2(BUF< II) > 

BL*BL+1 

IF<BL- GT. 88) GO TO 490 
110 BS*iV2<BUF< I I +2) )“MIHS 

IF<BS,LT.B) GOTO 496 

C IGHOPE POSSIBLE BUG IM FOB OUTPUT DATA 

IF(SST<BL). EQ> 89) SST<8L)»aS 

NSAMPslV2CeUFUI+4>> 

IF<NSAMP. GT.88) GO TO 496 
*KK*KK+NSAM> 

EST(BL)=BS+NSAMP-1 
IF<£Sf<eL). GT. MAXNS) CO TO 496 

C 
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C TRANSFER SECHEMT INTO tftCBOf 
C 

CALt HVL(8UFU i46')/LRCSUF<8&. BL).N8AMF> 

IF<NSANP-<NSAnP/2>*2. HE.8> HSAHP»NSANP'M 
140 1 1«I I^HSANP-^E 

UP CONTINUE 

C 

REJECT OBJECT IF IT IS TOO SNAtt OR TOO tARGE 

C 

IP<*CK. GT, NAXOA OR.XK- CT .TtIHQA ^JGO. TO __4?a 

C 

C ORIEH T THE OB JECT 

C 

CALL OR I P9.<_LR„G BOF^.S NL80n SST./^C C H> . RCOOE> 

HS»CHDZR<OIRMS,N) 

NL*CHDIft<OIRHL-N) 

IF<RCOO£. KE,0> GO TO 496 

HC^HCtl 

C 

C BUILD ACCUNULATOR TABLES 

c ■“ 

CALL ACCSU3<SnLBUF,NL.HS.AR£AA> BENA. TAREA«TBEN) 

C 

C 30ILD AND ANALYZE THE SKELETON IF LOCATING 
C THE CENTROMERE BY BEHSITY 
C 

hethVi 

C ASSUME OPERATOR SUPPLIED CENTROMERE <S£T HETH«1> 

CEH»OPCEN<N) ■ 

IF(CEN.NE.e) GOTO 176 
C CHECK FOR OPERATOR SUPPLIED CENTROMERE 
METH»6 

C SET METH*6 FOR AUTOMATIC CENTRO^ 

C IF<. NOT. SUSK) GO TO 156 

C CALL SKSU8<S«LBUF/MLVNS;iRC60F;CEN/BEHAr8‘rMi'HV 

C IF<CEN.N£.6> GO TO 256 

C 

C THE PREVIOUS STATEMENTS WERE COMMENTED OUT TO MARE MORE ROOM 
C 

C LOCATE CENTROMERE BY ALTERNATE METHOB 

C 

156 ASSIGN 165 TO LOOP 

'c 

C LOOK FOR CENTROMERE IN MIDDLE HALF OF IMAGE 

C 

HSi^(NS-<NS/^)+l)/2 - - - 

C 

„C I HB MIN IMUM — 

* C 

155 CONTINUE 

HS2»HS-NSU1 

MIHA»ACC<NS1«CLHETH) 

CEH=*'NSl 

BO 1E0 I=NSl/NS2 

"" rr<ACC(I+CLM£TH).GE.MI«A> CO TO 166 

MIHA=ACC<UCLMETH) 

CEH=»I 

168 CONTINUE 

GO to i-OOJ* 

C 

T'CENTROMERE has been TENTATIVELY LOCATED. IT IS CORRECT 

C IF NOT ONE OF THE EHBPOINTS. IF IT IS AN ENDPOINT/ LOOJC 

C FOi? A CEHTROME^ BETMEEH .75 AND .67 

C 

165 iF<CEN:HE.HSl\ AND. CEN.NE.NS^^^ CO TO 238 

ASSIGN 236 TO LOOP ! 

NSl=(NS+4)/8+l 

CO TO 155 

' c' ' 

C ADJUST CENTROMERE AS REQUIRED BY OPERATOR _ 

C 

l?9 IF<CHDIR<CENLIN/ H) . LT.S) C €H»NS-CEN*1 

“C ADJUST FOR SHORT ARM OK RIGHT ORIGINALLY 

MIHA-ACC<CEH+CLNETH> 

C LOOK ONE UP AND DOliN TO SEE IF THEY ARE SMALLER 

IF<ACC<CEN+l+CLMETK). LT. MINA) GOTO 186 
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155 

IF<ACC(CEH-l+CLMETH). LT. MINA) CEH-CEH-1 
GOTO 250 

180 ^ CEH»t£H+l 
GOTO 250 
C 

C CHHC?; FOP. DUPLICATE ttIHIflA AMD TAKE AVERAGE IF SO 

c ■ 

230 

CEHPl»CEH+r 

BO 240 I=CEHP1.NS2 

IF< ACC<I + CL«ETH) . HE.hIHA) GOTO 245 

240 J»J+l 

245 CEH=CEN+J/2 



C HEASURE THE ARMS 
C 

258 CALL BPT<SMLaUF. HL/CEH- LB2) ’ ' 

CALL BPT<S«LBUF, KL/ UL01> 

CALL DPT<SHLBUF, HLrHS.L03) 

AJ LTH^SORT ( <CEH- . 5 ) »»2* <FLOAT (L02>LP ! ) ) »»2> 

A2LTH»SQRT( (HS-CEM-^ . 5 >»*2+ <FLOAT< LB3-LB2) 

CHRLTH»AiLTH+A2LTH 
1CMR=»180. ♦AlLTH/CHRLTHt. 5 
SHRTA»1 

IF<OPCEN<N) .EO.0) GOTO 2€0 ‘ 

C FIND SHORT ARH FOR OPERATOR JUPFL lEB^ CEHTROHERE . 

IF CH^TF'"cEHLi‘N/H')7L 

IF^OFFLIPCH).' SHRTA»-$HRTA 

GOTO 265 

260 IF.dCHR. GE, 50) SHRTA*-t . 

265 IF<ICHR.LT.50) 1 CHR 00- ICHR 

IF<_I_C«R^G_T. 991_LCrtR^«9S 

C 

C CALCULATE CID AND CIA . 

C 

CDEH=»0 . . . . _ ... 

CAPEA=»0 

_.M_2?0._L2JAi:£H- 

CDEHaCDEH*»-BEHA<I ) 

278 CAR€A-CAR.£A.+AREilAU) - 

ZDR»<<200.«CBEH)-<t00.«BCNA(CEH>>4FLOAT(TBEN>>/<2.*T0EH> 

IF<IBR.LT.50> IDR-ie0-iPR 

IF<IBR.g'T,99)IBR»99 

IAR»(<209. »CAREA>"<100. ♦ AREAA (CEH ) )»FLOAT <TAREA) ) ^FLOAT< TAREA*TAREA> 

IF<IAR,LT.58> IAR«180-IAR 
IF<IAR.GT.99) IAR»99 
C 

C ABB J1EASUREHEMTS TO CHROHOSOHE BIRECTORV 
C 

IF<SHRTA.E0.-1> CEH^CEH-WS-I 

C STORE HEGATIVE CEH TO FLAG SHORT ARM ON RIGHT 

CHBIR<CEHLIN# H>«CEH 

C HB I R < LENGTH. N >»CHRLT H* . 5 
CHBIR<IOD.H)aTBEH 
CHBIRCAREA. N)»tAREA 

CHBIR < CIL.H)*ICHR 

CHBIR<CIA.N)«IAR 

CHBIR<CIB>H)»IBR _ . 

F PE R =^C HB I R*< PER IN. H ) 

FPSDA*<FPER*FPER)/<TAREA-. 5*FPER) 

IFCFPSBA. GT. 327. ) FPSBAa327, 

C CHECK FOR INT EGER OVERFLOW 

CHBiR(PSQBA.H)»108. ♦FPSBA 

CHBIR<C£HETH. H)»WETH ... . 

C 

C ABB IHBIVIBUAL HEASOREHEHTS TO SPREAB HJEASyR_EllEHT$ 

C 

SPIO B»SPI OB ^TBEH 

SPAREA^SPAREA'i'TAREA 

SPLTH»SPLTHtCHRLTH 

C 

C STAH3 CHROH030HE UP ANB WRITE IT. INTO ROTATED FILE 
C 

rP*NS._ 

LPB»10247hL 
CHBU<8LKN0. N)»CUROLN 
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380 CALL PUTCCBUP, CUROLH/ CB) 

CUROLN^CUSOLH+l 

IFCSKFLG) GO TO 303 

CftLL CHROU KSHL B UF. O B UF < . NS/ HL . LPS> IP . SHRT0. SL8 )_ 

GO to 3ta 

393 CALL CKROUT<LRGBUFi OBUF < > . HS^ HL. LPB. IP. BHBTA^ 98) 

31 B COHTIHUE 

IF<IP. NE. 0) GO TO 300 
GO TO 3B9 

C 

C OBJECT BYPASSED 
C 

499 CONTINUE 

CHDIR<BLKNO.K>-0 
CALL OUTCOH<N.EN<7).2) 

CALL 0UTC0H<KK.EH<2a).4> 

CALL OUTCON(NL.EN<25),2) 

CALL 0UTC0H(NS.EN<2B>.2) 

CALL TYPECEN. 28) 

C 

C END OF WAIN LOOP 
C 

50'0 CONTINUE 

C 

C UPDATE CHROMOSOHE D IRECtORY ON DISC 
C 

CALL PUT<OBUF> 1. IB) 



CALL ITL2<CUROLN>08UF<IB«15)) 
CALL ITL2<NC/ OBUFIIB^IT)) 




CALL NVLISPiOBiOBUFdB^S). 12) 

CALL NVLICHBlRd, l><0BUF(I8+3 1), 2*38*1 9) 



CALL PUT<6BUP,2. I&) 

CALL HVL<CHDIR(1,31>/0BUF<IB4 31)< 2*3B<»1S) 

r 

CALL CLOSEIOBUF) 
CALL CLOSEIBOF) 



t HEASUREHENTS CONPLETEB 



C 

999 

CONTINUE 



C 

CALL EXIT 
END 

f 1 1' 



C* 

<•> 




C* CLASFY ♦ COMPILE UITN vCO: 25 . 

C* 

C ♦ :« 

c 

• -C - 

C CLftSfV PROVIDES THE CLAS3IF ICRTIOH HECHAHISH FOR THE CLINICLA 

€ Ai-HS^ SYSTEH. ITS INPUT I& THE-EHR0HO50eH^ BIHiCT0Ry T>RODHe£B 8V^ H0B^ 

C AND ITS OUTPUT CONSISTS OF THE RESULTS OF THE CLASSIFICATION PRO- 

C CEBUR E UH I CH I S UTI LIZEJI- HV ~ K T VP£-TO- I>ROBUCE--TME -H ARVOMAH 

C 

C — 

SUBROUTINE CLASFV 

COHHON>’-GlvIIt^C«.-OF«,+CTB,-IL-TB- - 

COnnOH/'Cl/HOB. SPIODiSPLTH. SPAREA/ chdir, iobuf 
COHNONv-ClvHSO^NRtA€,-fiI*,^IM»-IS«-IIFSrSCL-T.«CS 

c 

— < -C OHHONR E C IO H ^ 

C 

C HUN»ER-OF--GHRIMM>80NE^ 

c 

THTEMB-HOB- 

c 

— C-I^HRimftS OH E B I B ECT OR- Y 

C 

integer CHWRtI5,M>^ 

c 

C FORHAT OF directory 

C 
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INTEGER 6LKN0 

-C NUMB^CR OF LIN£^ IN OBJ^EC-T- 
INTEGER DIRHC 

C NUrt&ER OF SftKPtES^ IN OB..«CT 
INTEGER BIRNS 

. 4:^-XMRO N O SOH E LE N C- TN 

INTEGER LENGTH 

C ZNTEG^fifJHEO OPTICAL BEHSiTY - - 

INTEGER lOD 

C CENTRONERIC IHBEX BY LEHGHT - 

INTEGER CIL 

- Xr - CEtLFRON &R4-C-T N«X^-B£4IG+T-Y- 

INTEGER CIB 

C CENTRONERIC INBEX--OY AREA - - - - 

INTEGER CIA 

C CENTROftERE LINE NUMBER IN OR I GIN AL PI CTURE - 
INTEGER CENLIN 

-G- -PE-fcl-NE TER 

INTEGER PERIrt 

C AREA^ OF-CHRONOGOHE 

INTEGER AREA 

C PERI«^»2/AREA - 

INTEGER PSQDA 

C T R I £ S- F O R E A C N C H A O AOS^ g 

INTEGER CHRENT 

C 10 BUFFER 

BYTE IOBUF<4209) 

r. . . , , , 

C RANBON AREAS 

C ■ . - - -- -- ■■■ 

INTEGER SPAR<16) 

BYTE ICIL<27> 

INTEGER SLSIZ. RECSI2, OFSF. SEX 

I4iT£G£4i-GC^F:i.G 

INTEGER CNAN<2e> 

BYTE ««SG<29). FttSG<3G). SXSG<3B).PEN<22> 

INTEGER KG( 19), JG< 10), I G (1 0 ) , KFAI U 1 B) , JF AI L (1 0) 

INTEGER CT<20/ 51 ),NCT<20.31), «ACnB)^«AL<IO) 

REAL STUD 

l , N £0 S ( - 5 ^B4 

INTEGER SCS<99>, SCLT<5), XTBL<49), ISR(6),CIC<11)UIG<11> 

INTEGER^ SID4<B0)^OFG427^X^ IOTB<G^»X^ih1LTO<«)- 

INTEGER AC<10>, AL<10),HING<ie>, HAXGUO > . CTAB <G > 

- INTEGER OKSC9U,PARC90O),JCE^YU9> 

LOGICAL CIB(10) 

lilTECEg V-IHT(ZZS), YIB,BI.D 

LOGICAL BEBUG, HOX 

C BATA STATEMENTS 

-C 

DATA HG/10/,HGt/ll/,NG2/12/, NGT2/20//HCT2Hl/l9>', YID/^ Y 

IUlA>_aXILii L/ ,.GT/Ej»2a. . 23-. - 1 , 2<20. 2/R^./ — 

BATA CT/120*0, 13*0, £8,99, 181^8,68. 99, U«0, 

-158^ £7-, £8,39^1£*e,. 

11£*0, 59, 67, £8,99, 14«8, £2, 82, 58, £7, £8, 99, t4#8,£2, 84, 58, £7, £8, 

- 299,^ L0*a,O5. 99^5J^.£7, £2^84, 50^-£7^ai,a9,-ia*a^85, 9^9^ 55, «^a2^-84^ - - 

350, 63, 81,99, 18*8,81, 99,54,67,62, 84, SO , 59. 1 2*8, 88, 99, 54, £7, 

4£2^1,Sa,L.S7, t2*a,aa,L.98,J54-,£7,£2, 81> 58. S£. 1 8*8 > 58 , 79, 8.8, 99^ 

5 34, 67,62,81, 4*9, 8*0, 58, 79,88,99, 54, 64, 14*8, 59, 79,88, 99, 16*8, 

£50^7^,88-99^4.6*0, 58, 79-88, J99-I£*8,.i8, 79,-88^99, J.6^8>418,.7^, 

780, 99, 14*0, 70,79, 50, 79, 80, 99, 12*8, 58, 53, 78, 79,53,79, 14*8, 

850,59,68^79,53, 70, 14 *8,58, 58, 68^79, 56-68,4.4*8,58-59,. £8,-79- 

956, 68, 14*0, 50, 5 9, £8, 79, 58, 60, 12*0, 58, 67, 50, 59, 68, 79. 58, 68, 10*8, 

179, 58,68, 10*0, 50, 56, 55, 67, 50,59, 68, 79, 12*8,38, 56,55, 67, 58, 

t39^6S,79-12*8,.50, 56, 58^87, ^8-5£,^£8, 79-12*8-58, 86-58,^£7, 58- 

156, 68, 79, 12*9,50, 36, 53, 67, 16*8,38,56, 55, 67, 16*8, 58,57,55, 67, 

116*8. 50,87, 55.£7, 16*8, 58^57,^8, 67-14*8, 88^-37-55, £7-1 £*8- 

153,57,55,67, 16*0, 50, 57, 55, 67, 1 6*0, 58, 57, 55, 67, 1 € *8, 58, 57, 

155 - £7 .U£.*8- 58.57, 55, 67 ,■ l£*8-38^ $7^8*8^ — 

BATA «CT/100*0, te*0,70, 99, 18*0, 70, 99, 18*0, 78, 99, 18*8, 78, 99, 

9 18*3, 78,99, 18*0, 78, 99, 16*0, 50-66,70, 99, 14*8,53, 78-58,46, 2*8, 

3 14*0, 53,73, 50/ 66, 14*0, 53,60,53, 78, 50, 66, 2*8, 

5 12*8,50,60, 53, 78, 50, 66, 12*8,6 8, 99,88,68,53, 78,50, 66,2*8, 
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7 8*e< 59. 75/ €8.99/ 58. 69, 14*8. 58. 75. 88. 99. 58. 88. 8*8. 

1 8*8. 58. 75. 88. 99. 18*8. 58. 75. 88.99.8*8. 

Z- 8*8. 58.75. 83.99. 8*8.8*8.88. 78.88.75. 18*8. 

5 4*8. 58. 88.88. 78. 58. 89. 12*8. 83. 71.58. 88. 88. 78.68.88. 18*8. 

7 8.8. 83.71 . 58.88. 88.-78. 88. 88.18*8.83. 7 1.58.88. 88.78.88.-88. 18*8. 
9 58.85. 83. 71. 58.88.88. 78. 88.88. 18*8. 
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25 CALL OUTCONCIP. PEN(22>. 3) 

CALL Q?R 144 T(P€li^22) - - - 

GO TO 998 

— C 

C PARAMETER CT - ADJUST THE DECISOIH TABLE 

I IL»PAR<IP+2>^1 

TFC IL.LT. 1 . OR . IL. GOTO 25- 

DO 1088 I»liHGT2 
1 AAA err T, ri >»fi 

;p=ip^3 

1010 IF( I? . GT.NP) GOTO 70 
DO 1028 J»1.HC 

1F<PARCIP>. EQ. GHAH(J) > GOTO 1038 
1820 CONTINUE 

G04^0-18 

1838 JJ*J+J 

CT< JJ. IL>»PAR<IP<^3> 

CT< JJ^l. IL)aPAR< IP+2) 

IP»IP+4 
GOTO 1310 

C PARAMETER NH - HO OBJECT HUM3ERS OR CEHTROHERE FLAG 

C - - - 

1108 HFLAG*i 
- IP-lP+2 
GOTO 18 

- C ^ — 

C PARAMETER SO - SET t OF OUTPUT SAMPLES 

X - ^ 

1280 NS0-PAR<IP+2) 

HSOF*! 

1203 IP-IP+3 

GOJO. 18 — — 

C 

X P^RAMET-ER- SI-^-XET--Sl-OX 12*S 

C 

13J88 DG- 1318-1 a 1^20- -- 

1310 SlD4<I)-PARCIP+l+n 

I P« lPii4Z — 

GOTO 18 

.-.C 

C PARAMETER «A - MALE EARYOTVPE 

C - - 

1400 SEXal 

1-418- lP-< IP4 l2 

GOTO 18 

- C 

C PARAMETER FE - FEMALE KARYOTYPE 

1508 SEX«2 

^XOTG-1418 — 

C 

X PARAMETER HX - HO X SEPARATIGH FROM^X CROUP 

C 

1518 HOXa. TRUE. 

CALL MVL(' 88 < C + X ) 

I D U „ - D - E- tS 2 E 

2 F F G G S S1D4<13>. 112) 

GOTO 1418 
C 

C PARAMETER DE - DEBUG OPTION ON 
C 

X528--JX£0UG*^RUE, 

GOTO 1410 

C - 

C PARAMETER S2 - SET SLOT SIZE 

1530 SLS12«PAR<IP+2) 

GaTU-1283^ 

C 

C PARAMETER MV - MOVE CHRONOGOMES- ARaUNM FROM PREVIOUS MA2YUTYPE 
C 

1548 4F<NSHaV,LT.5U> KSMOVaHSMOV*l 
OLDS< NSMOV)aPAR< IP + 2) 

. . KE8jaU4SM0.V> -RAM<.1R>» 


CJ O Ci <Nl Og ooo ooo cioO 
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PftRAHETCfr ST -- SET SLOPE TftBiE 


dSO SKI )«PAROP+ I + I >/PftR< r P+2 + 1 ) 
1P*IP+HGT2M1+? 

GOTO IS 


?P.<'^^?1£T£R ill - 3£T rtIHIilUft * Of CHROrtS- FOR EACH GROUP 


3 BO 3390 I>=KN6 

3389 HING( I f*PAR 41 P+ 1 +1 > 

IP»IP+MG2 

GOTO IS 

P AR AHET ER H X ^ S £ - I H AX lH0ft 8 O F C H RO HS . FOR E ACH CR q U P^ 

4 BO- 40aS-K«I^KC 

4809 «AXG< I >*PAR(IP+1+I ) 

lf>;:.IP + HC2 

GOTO le 


PARAHETER CS - SET CENTER SAHPLES FOR EACH SLOT 


5 BO 5088 1-1.98 
5888 SCS<T^)*M^AR<TP + n^r> 

SCSFLC=1 



GOTO 10 

C --- 

C PARAttETER CL - SET CENTER LIME FOR EACH GROUP 

C' - - - - 

6 BO 8008 1»1.5 

G^88 S CLT< 1 )»^PAR<IP + I -k I ) 

IPs^IP + 7 

GOTO 18^ 

C 

€ PARAftETER LR — SET TNI T I AL SL OT FOA E AGH R8IF- 
C 

7-^jTO— 78^88-- l -^ 1. -G 

7090 ISR4 I)*PARaP + l + n 

IP«IP+8 - 

GOTO 10 
C 

C PARAMETER IG - SET INITIAL SLOT FOR EACH GROUP 


8 BO 8000 1=1. NG2 

8809 TST<I)=PAR<IP+1+I> - 

IP=IP+HC2+? 

GOTO 10 

C 

C PARA ME-T c R- OS---~ -HA SOR E S 3 MT 0-^44TT^S 

C 

9 OFSF=t 

H0FS*NP-IP~1 

IF<HOFS. HE. 40^. AMB. NOFS^. HE. 4G^-GOTO ^958- 

C SEE IF 48 OR 46 OFS PARAMETERS UERE USEB 

aa-saao I c kh ofs 

8980 OFS<XTBLU ) ) = PAR(IP+1+1 ) 

C ALLOU FOR THE -EXTRA SLOTS 

GOTO 70 

8950 CONTINUE - 

BO 9000 1=1.98 
TF<1P+1-I CT.HPi.aOTO.70 

9990 OFSd )=PAP(IP + l + n 

IP=IP+92 . 

GOTO 18 

C . 

C PARAMETER CO - ADJUST COEFFICIENTS 

15 BO 71 1=1.6 

CTABd > = PAR<IP + 1+1 ) 
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71 CONTINUE 

If<Cfji^B<l)*C]A8(2)+CT|Jlfi^(3).ME.10a> CO TO 990 
IF<CTrtB<4)*CTftB<5)+CTA8(«> .HE. 100) CO TO 900 

G 0-40-40 — 

900 CALL TYPE(' ♦♦♦ COEFFICIEMT SUH HOT » 109') 

CALL TYREC'O' ) - - 

GO TO 990 

C READ IN CHROHO$ONE DIRECTORY 

-_C 

70 CALL AFUE< lO&UF. 1. 'RCft ',M3#*13) 

CALX XIPE NCI O8U-F. t024v 1. 0.-' RCR/ ) 

CALL GLABELCIOBUF. SPAR. IB) 

LS£^=0 

IF< lOBUF ( IB+104) .EO. • 115) LSEX=1 

I F<IOBU F< ie -H Q4). E O. » t0G> L SEXs g 

IF<IVU0BUF<IB+82)).NE. "ri) GOTO 777 

-C COTO 777 XP HCT SOURCE 9. -1 9. -29.^ .. . CHCHKEY) 

CALL «VN<RCT/ CT. 1020) 

C REPXflCE HUHAN- TABLXS-.yiTH HONKE-t-TABXES FOR COURCC 91 
CALL HVU<nACi AC. 10) 

-C-AL.C.4LVii < nALi^AX^iOX 

niNGC10)^0 

NAXCC10X=t - 

ISTC 10)==70 

C SET C+Y CROUP FOR POSSIBLE I - -- 

171 CONTINUE 

- CALL CEXXXa&UC^ l . IB) 

CALL HVL< lOBUF (I B+1 >. NOB. 1€) 

NC=I V2(.108UF< IS+17)) - - 

SPLTH=SPITH*46/NC 

SPIOD*SP10D*4C/NC 

SPAREA«SPAREA*46/HC 

CALL GET < I08UF. 2. IB) 

CALL HVL ( lO&UF UB+31 ). CHDIRX 1 .31). 2^ 15*30 ) - 
DO 72 1=1. HOB 

CHD I R< LENGTH. I ) = CH D IR < L EHCTH . I >*10000. /SPtTH 
CHDIR< luD. I ) = CH91R< lOD. I >*19690. /8PI0D 
- C HD-l. RX AR £ A.- U - CH DXRXA R XX*- 1-9009 ^lCPAR-£ A 

72 CONTINUE 

- C 

C INITIALIZE CURRENT INDEX AND INITIAL INDEX FOR EACH CROUP 
C 

C1G(1 )=0 

XXG < n ^ 

DO 75 1 = 2. NGl 

CIC(X)=CIG< I-l)+25 - 

75 I1G<I >=>1 IG< I-D+25 

C - 

C SET UP SLOT SIZE IF HOT INPUT 


IFCSLSI2. E0.0) SLSIZ=24 
IF<SLSI2. CT.20) SLSI2»28 
IF<SLSI2. LT . 12) SLSI2=»12 
PSEP>SLSI2^3 
C PAIR SEPARATION 

.. SC«_XJ^ . 

$C3(2)^SCS<1)+SLSI2 
DO 752 i=3. 17.2 
SCS(l) =SCS< 1-0 +SLSI2+PSEP 
752 SCSd + O^SCSCO-^SLSIZ 
DO 75G 1=1. 18 

DO 754- J=^X^4 

754 SCS<18*J+I >«SCS< I > 

75b CONTINUE 
758 CONTINUE 

C 

C CHECK SEX 

I F<SEX. GT. 0) COTO 78 
SEX-LSEX 

7b IF<S£X. ME. 1 ) GOTO 77 

C HALE - 

MAXC<5)=15 
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?7 If<S£X.H£.2) GOTO 79 

C FEMtaE - - 

NIHG(5)=16 

H9XC410>=»^WiWCC^l&)--t 

IF<Sni4<70).EQ. YID) SlB4(7e)-BIXI 

y T 0-aL9MK -tmuiss S iP-y<V S - 8 

78 CONTIKUE 

I F< OF^F. Ea.- U ^OTO- 4M 

c 

C ^K IP CU.98Sif UX9^rrOH 4F-- af-S^-TABCE- tS- IH^UT 
C 


290 1409 

IF<CHJ)Ift<BLKMO.H).EO.O) GO TO 299 

I C=<CHlU«.<aiL^ M>*C-TAaC4) +CHD1-R<CI 0*H>*CT4^B-<9>^CH2UR<C-1 A/ H> 
i *CTftB<6) >/I09 


J ♦CTftS<2)+FLOAT(CHDIR(ARE9.M>)^CTAB<3>)/1009. ) + l . 

fF< It .aT.514- IL=^5t 

CALL OUTCON<H. ICIL<5>/-2> 

CALL GUTC0N4l^.4GT-LCn>^r-2> 

CALL OUTCONOL. IC1L<17). -2) 

lC-rB < H>^ArQ. 

ILT8(N)=1L 

IFdC. EG. 9 OR . CHDTT?<PSa9ArH> LT . 134»709 GH!U9<AA£A/ N) 
IGO TO 82 

PUT IH UNKNOWN GROUP IF 8LOB OR OVERLAP 
20 88 MGT2NI.2 

I F M-C GE L V AND. K - -L-£^e4^^V^ I L ) ) GO T 9- 4 99 

IF IC IS WITHIN THE GROUP LIMITS FOR THIS VALUE OF IL GOTO : 

80 COHTiHUE 

82 si = NGl 

08UECT IS IN THE FORBIDDEN 20ME 
GOTO 119 

8-5-GO^i-HUE — ~ - 

CALL TYPEC' ALL SLOTS FULL') 

GOTO 299 - 

100 CONTINUE 

J-vl >/2 - 

110 CONTINUE 

^ CAU^ OOT C O N < U ^U-1 L 4 - 2 ) 

IF<D£eUG) CALL QPft I NT < 1 C IL . 27 ) 

IF<N0G<J).E0.25> G0T0O5 
NOC<J)=HOG< J)+l 

CIC<a)aCIG< J)^l 

0FG(CiC<0) )»W 

208 CONTIKUE 


C If AMY GROUP IS HEAVY OR LIGHT. TRY TO MOVE CHROMOSOEHS AROUND 
C 

210 HFA1L=0 
220 CONTINUE 

N«OV==0 

DO 3000 J=^2.HG 

IF<HOG(J). GE. ftAXG<J>) GOTO 3999 

K2=J-1 

NCAN*0 

009^9-^ 

C CROUP J IS LIGHT. SEE IF A PRECEDING CROUP IS HEAVY 

DO 25^09 Kal . K2 - 

I F<NOGCiO . LE. MIHG(K) ) GOTO 2590 

C.JCROUP K IS HEAVY ^ 

IFtNFAIL.£Q.0) GOTO 239 

JX0^22i__H=iXd4£-All 

IF(K EO. Kf AIL<N> . AND. U. ED. JFAIL CH)> GOTO 235 

C THIS J AND K HAS ALREAJDY FAILED - - 

225 CONTINUE 

238 - --- 

JL = J 

il-SA V£- H£AV-Y-ftiiD L I GH X -aE^JOUP— HUH-BE RS 

235 CONTINUE 

- I ^ - - _ - 

T2-CIG<K) 
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^ - DO- 240a 1=1 U12 
H=OFC( I> 



IL=1LT8<M> 

IF< IC. IT CT<JJ- 1, It) . OR. IC.CT. CT< JJi ID) GOTO 2400 
C OBJECT IS IN CROUP J, HOST tUELV If CLOSE TO CEHTER 4)F -J. 

C 0N2 FAR FROM CENTER OF K 

B a„ < c iC--4U:^CJ4)-^»aA4-I t ^ AL < / 

1 WAX0<<<IC-AC(K>)»t2 + (U-AL<K))*»2). 1) 

tF<D. GE. DNIK) GOTO 2400 - 

C THIS IS THE HOST LIKELY CftNBlBATE SO FAR 

KSAV=K - 

ISAV=I 

NCAti=N 

DMIH*D 

400 COHTIMOE 
500 CONTINUE 

IF<NCAN EQ 0) GOTO 3030 
NH0V=HH0V+1 

C HOVE OB JECT -N- «0H . CROOP-JCS AV- 

CALL 0UTC0N<KSAV,ttH£C<22), 3) 

CALL OUTCONCJ. H«SC<29). 3) 

IF<DEBUG) CALL OPR i NT (MHSG . 2 9) 

HOG<J)=NOC< J)+l 
CIG<.J)=CIC< J) + i 

. . . aEOXCXGiUXX-i-^CAH — - 

CIG<KSAV)=CIC<KSAV)-t 
KOG<KSAV)=NOCCKSAV)r 1 
I2=CiG<KSAV> 

DO 2Saa I^ISAV^T2 
2683 OFC<I )aOFG< I’M) 

„ .X- XLilS£MiE^tHEU-itEHAlH I NG-^ aftAlECT S-XH-.XHE ^ilOUP 

3083 CONTINUE 

IF<NHOy. CT.a) GOTO 220 

C IF SOMETHING NAS MOVED. SEE IF MORE MOVES ARE POSSIBLE 

iF<KH.eQ.a> GOTO 3iea - - --- _ 

C KH IS HEAVY AND JL IS LIGHT BUT MO SIMPLE MOVE HAS POSSIBLE 
C -SEE 1E^TK£RE_.IS..A„C0MPLEX < HOLTl-“^E.VEi>> - MO VE THAT ^.CAM- BE'- MADE ^ 

L = i 

JG<1>=JL 
3010 KG<L>=KH 

3320 CALL CFO<KG(L). JG<L>. IX. ACrALrCT) 

C CHECK FOR A CHROMOSOME IH THE KC-JG OVERLAP AREA 

3^040 

IG<L)=IX 

C SAVE INDEX NUMBER 

IF<KG(L) .EQ.KH) GOTO 3069 
C HE MEED TO GO UP OME LEVEL 
L«L + i 

^a=4^K G <L - 1> 

GOTO 3010 

3040 KG<L7-KG<D^’1 - 

C LOOK AT THE NEXT GROUP ON THIS LEVEL 

IF<KC<L> .LT. JG<L)>-GOTT) 3320 - 

L=L-i 

G— GB-4I-0U H O N E LEVEL 

IF<L.CT.a) GOTO 3040 

C EAILED TB f I HD A COOD MBVE 

NFA1L=HFAIL+1 

TF4HFA4L CT M0) GOTO S10B 

KFAIL<HFAIL>=KH 

JF A IL<NF AI L) = JL — 

CALL OUTCON<KH.FMSG(22). 3) 

CALL 0UTG0H4^LrFMS<;<a9)r3^> 

IF<DEBUG) CALL QPR IHT <FMSC, 36) 

GOTO- 220 
3060 CONTINUE 

. - C-HAKE^THE^L-liO V E S THAT -HAV4-BEE N F OUND 

DO 3080 M=1.L 

1SAV=10<M> 

JCH-JGCH) 

KGH=KG<H) 

HOG<JG«)=NDG< JGN)+l 

- CI4T<^Xin^C4-G44(yn-*4 
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OFC<CIG< JCM>)30FC< ISftV) 

Cia<KGn)s^I4i<KGH>-l 

MOC(KCn>=»MOG<KG«)-l 

- 

DO 3070 I*ISAV. 12 

— 0 f -C-<4->-aa$ic-c-i.^ 

3080 CONTINUE 

CAtk UUTCOH-CKH, S«S4;(22)>^) - 
CALL OUTCOH<UL. S«SC<2^). 3) 
1F<D£BUG> CALL QPR1NT<S«SG,39> - 
GOTO 210 

C-LOOK-FW^mXft^E— WAIVES 

C 

C DUt4£ »OVI^HC CIiR^HOS<^«ES BET U£E^ GROUPS. 

C VITHIH EACH CROUP 
C 

3100 COHTIHUE 

IF<NOG(J>. £0. 0) GOTO 309 

I2=CIC<J) 

T)0 240 l*n^T2 
M=0FG(I) 

IC » I CTB < N ) 

IL=ILTB<K) 

VINT< T)^IG-ST(J>*IL 

IF<ST< J) .LT.0) YIHT<n»-YZNT<l) 

240 COHTIHUE 

C STORE V INTERCEPT 

I f 31 T<%T / .O 


ROiL-ORDGR THE CKROHOSONES 


242 CONTINUE 

L2»IST<U)*N0GCJ)-t 

IF<L2. LT. 1ST< J+ I >) GOTO 246 

HOG<J>*HOC( J)-l 

IF<N0G<HC1 > LT IST<HG2)-IST<HCI>) GOTO 244 

CAL4 

IF<1SH1.£Q. 1) CALL TTPEC' ALL SLOTS FULL') 
GOTO 242 
244 CONTINUE 

CiGi«Gi)*ClG<HGt >+l 
HOC<NGn^HOG<NGl ) + l 

G44*G4-^ G 4 - T2 ) — 

12*12-1 

GOTO S 42 

246 COHTIHUE 

jttO -260 -L»LljuLa 

HIMy*9999 


IF<YINT<l).GE.rtIHY) GOTO 250 
HIHY*YlHTCO - - 

2M_j:0MTJJmE 

OFS<L)»OFG<niNI) 

YIHT(MIM U? 9999 

269 CONTINUE 

-STORE-TJH CROUP -IR-ORBER- OF -YaHX- 
300 CONTINUE 

-SUB-G-ORTlilUE 


LFtNOXX GOTO 350 

C CHECK FOR HO X SEPARATION FROM C GROUP 0ES1REB 

C- FI-HD -THE- X OR-X^X- IH GROUP C- 

I 1*IST(5) 


13*11+2 

T4*I2-2 

tF<H0G<5). EQ. 16) GOTO 330 
1FCH0GC5)--KE.45X SOTS 350- 
C HAS 15. THIRD LARGEST IS X 

aES4 ! 2X=^OFS- Cl 3) 

DO 320 1*13. 14 
320 OFS<I )*OFS<T+t) 

OFS<I 2 -n *0 
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GOTO 

330 COrnJHUE 

c c Hi^s is. s ~ 

1 TEnF-Oh S< lo> 

J TAttF=OrS( 13+1) 
bn 340 ]^ \ 3/ I 4 
340 OFSn)-OFS< H2) 

0FS<I2-1 >=UE11? 

- - 

350 CONTINUE 

IF<HOGCNa) . H£. 5. OR. SEX, Ea, 2> GOTO 40ft 
C IF 5 IN GROUP G. FIHB THE Y CHROMOSOME 
I1=IST(NG> 

12-11 +4 

I F 4 OF S-C 1 2J ,^EO^e-X-GaT-0^-4XW 

JIAX-- 1 

DO 3Se 1 -I 1. 12 
H»OFS( I) 

M^5 0*CHIURCAftEA. H)/<CHDlRCDIRHt.H>»CHDIR<BIRHft^R) ) - 
TF< « LE MAX) GOTO 360 
TfAk.-H 
ilHX 1 
UMAX-N 

360 CONTINUE 
14=12-1 

2 0 370 I =1 MAX. 14 

370 OFSU)=OFSCl*U - - - - - - 

OFS < I 2 >-'^0 
OFS( 12+1 )=NMAX 
430 CONTINUE 

i r Ho- N V 2 . 3 > -C 0 i U 4 'i 3 

SO 492 . HSMOV 

Net4S44-HEVS*4-HF- - •-- 

0LBSri = 0L2$ < N) 

IF<HEi;&N N£ 9> GOTO 401 
C DELETE OBJECT IN OLDSH IF NEOSK - ft 
OF:><OLDSH)*0 
GOTO 402 

- - 4^0-1 G OR T-i- H-UE- — 

NSNVE=OFSCKEySM) 

OFS< H£ySN>=^OFS<OLBSK) 

OFS (OLDSN)=NSAV£ 

402 CONTINUE 

403 CONTINUE 

■^--C--4I> JU » F -TA^04.^-FF?-O--00UEC TS T H4R 2 4 SfrH PLEft — 

DO 419 J=l. NGl 
I 

I2-ISTCJ41 )-l 

i D£L=«8 - 

DO 495 1=11.12 

gOGvF4-^GCS^F-F)+‘FS-£-t — 

C ADD OH ANY PREVIOUS DELTA 

I HP =OFS< I) _ . . 

tF< IMP FQ. 0> GOTO 404 

NSTN24=CH2IR<DIRNS. INP)-SLSI2 
IF(N3TM24 LE. 9) GOTO 404 

G CS < T ) =&OS-4-4 ) +-HS2T1424^'— 

C ADD DELTA FOR THIS OBJECT 

I 3EL=I DEL+NSTM24 

404 I F< SCS < n . GT. 506> SCS<I)=506 

405 CONTINUE - 

410 CONTINUE 

I F ( NSOF . £0-- 1. AND. 4430^0-. 0X C a T O 4^5 — 

C IF NSO OF 0 MAS SPECIFIED. DO NOT CHANCE IT 
C NGU FIND NSO ■ - 

DO 420 J"2.6 

D 0 4 i 5 T = 1 „ 1 o 

I HP =OFSUSPCJ> - I ) 

.... IF< lNP-:Fa. H)-GO-TO 415 -- 

C THIS IS THE LAST HOH-VACAHT SLOT ON THE ROW 
rTEMF = SCS< I SR < J >-n + SLSI2/2 + PSEP 
IF( ITEilP GT . HSO) NS0 = IT£f1P 
C ADJUST HSO IF REaUIPEB 
GOTO 420 

41.5^ .COUTINUE - - - — - - - 
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-- IF<HS0. GT. MS^O*iHAXaSO- 
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C OUTPUT RESULTS- -Or-CtASSl-FlC^Tl-CW - - 

C 

i 23 CO NT IHUE 

BO 508 1=*!/ 5 

ISEI»TSR<2)- - 

BO 450 10 

JJ^-ISRUOr-l . 

lNP*OfS< JJ) 

1FCJJ RF.rSR^I+lV) IHPmtt 

IF< IMP. EQ 0) CO TO 450 
ITEMP^CHBIft<BIRNL. IH?)/2+2S 
1F<SCLT< I ). LT . I TEMP) SCLT( I ) = I TEMP 
450 COHTINUE 

500 COHTIHUE 

CALL P4LTU.iaaUE^.-Le) 

CALL NVKNSO. IOBUFUB + 1 ), 2*294) 
CALL CLOSE< lOBUF) 

C 

C 30KN PETUPN 
C 

- CALL 

ENB 


C* ♦ 

C* KTVPE ♦ 

C * * 

C 

C- K4^VPE -PB0&UCjES-44«E-&UTfU^T-*4» BY0 C R ftW FR OM- T H E - C L ft St IF ICftTl Q >t T <»ft UCS 
C PRODUCED BY CLRSFY i^ND THE ROTATED CHROHOSOHE IHACES 

C PROW^CED BY ORIEH^T. - - - - 

SUBROUTINE KTYPE 


COHHOH>'C4vINV8,-TBUR.4Bar^NI,T<N&^T.p:EH»CEM.IH<^MN€r-H- 
COHHOH/Ct/HSO.HFUG<GID. S1D« ISR. OFS. SCLT. SC8 


CE«-SRAR< 1 B ) p C E HE TH < <0 ) 

BYTE IMVB<5€) 

_ _ . tWT rRITft T CO ^ C \ . R Tl\ ^ 1 ft \ . C T H / Aa \ 


INTEGER R<39) 

BYTE 0BUF-<3-t28>,-ISUF-<2B44B^ - 

INTEGER FBHCOB), H3T <SB) > HLT< SB) . CEHLtH< 6B). 0FS<91 >. SCS<9B> 
---BYTE IABFl<21E> - - -- 


c 

INTEGER SCLT<5> 

- CAL-L MVL < ' 0--4H 

1 m* m* *• a# a* '^R,78) 


c 

C OPEN 

SE-TS 



CW.L DCtEAR- 

C CLEAR GRAY SCALE 

CALL AFILE< INVG,-!. ' RCR ' 

CALL AFILE<OBUF, 5, 'PIC 

C At t-OPEH< I H VB» taa 4 . » > 0 , 'RC R ' ) 

CALL OPEHCOBUF, 1536,t* 1/ 'KCN' ) 

CALL GLAB€L<IHVB-,GPAR. 

CALL nVL<IHVBUe + n.LASEL>2tS> 

MLO = 0 

C 




c 


CALL REAKINV8.L,I8.IEUFfl» - 

N0e=IV2( IBUF< I )) 

DO 19 1=1,39 

FBH< n=lV2< ISUF< 1 + 30*1) ) 

- - ML-T4 

HST< I) = IV2< IBUF<5+30*I> ) 
CEHLIN<I)=IA8S<IV2<IBUF^<I7+39*I>)> 
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CE«ETH(I )-IV< IBUF<25+3^*I) > 

IF <N08. EQ. I) Ca TO 48^ 

10 CONTINUE 

C AL > 1 OU F < 1 > ) 

BO 26 I»1.30 

F8H< t*36^I V2 CI60f <4r4Z6tLl>^ _ . _ 

HLT< I+30)»IV2< IB0F<3+3a»I>> 

H^T<l+a6>-«l-V2CI6UF-<3^*^6#^l)V - 

CEHtIN(I+36)=iIABS(lV2<IBUFU7-^36*I>) ) 

C £H £ THC I * 39 > aI V< IB U F<«4 3 B *U) 

IF(H08.EQ. I+36)G0 TO 40 

, 28. CONTIHUF- . . . . . 

C 

C READ IM aLASBirtCATlOR TABLES^ 

C 

49 CONTINUE 

CALL R£A3nNVB*3. IBp IBUFU >) 

CALL MVL(IBUF< D.HSO. 2’i294> 

IF<HS0. CT. 512) CO TO 988 

SPAR<n«S12 

SPAft(2)=HS0 

SPAR < 5 > = 5 12 - - 

CALL PLASEL<OBUF.SPAR.LABEL> 

C - - -- 

C WAIN LOOP; 

C BUIL1) EACH f?0U OF THE OUTPUT KARYOGRAB 

C 

_ . 

ISRI=tSR<n 

IFCI.LT. 5^ GOTO 43B 

C SEE IF THERE ARE ANY OBJECTS ON ROB 5 

DO 420 J»t. te 

IF(0FS(ISRI+J-l).HE.8> GOTO 436 

42-0 CmjIHUE-. — 

GOTO 560 

C- NO- OBJECTS OH ROB 5 - 

430 CONTINUE 

R<2)-CX4K 

R<3)=CI»(2+<I-t)*2) 

DO 456- tB 

JJ*1SR1+J“l 

IJJPj»0BSX4a> 

1F(JJ. CE. ISR<I+1>) INP*6 

CALL 0UXCBN41H2* R<5*XJ^-t 

IF(IHP,EQ.0> CALL I TL (32. R<5+ U-1 ) *2) > 

456 CONTI HUE 

CALL SSBTCKO. IBIT) 

IFMB1T^ HE.4> GB TO 475 

CALL TYPE(R.78> 

C -- - 

C INVOKE THE ROB BUILDING ROUTINE 

C 

473 CONTINUE 

GALL XROB CISR < 1+ t ) - IGR I^OFGCI^4> .5C4T4I X.^6GGtlSR4) . NGO. 
ISIDdSRI). HFLAG) 

NL0^HLa+24iSCLT<I> - 

S69 CONTINUE 

C 

C CLOSE UP DATA SETS AND RETURN 

- C 

SPAPCD^NLO 

CALL PLABEL<03UF. SPAR. LABELX - 

CALL CLOSE(IHVB) 

- GALL CLaS£<OBU-FX 

CALL EXIT 

C-~- ... . . - - - - - ■■■ 

C ERROR 

C- - 

906 CALL TYP€<^ HSO TOO 81G*> 


CALL EXIT 
ENB 
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SUCROUTIHE KROy<HSL<OFS, SCL> SCS/H80' S!D> HFLAC) 

c ♦♦♦♦♦*♦♦ 

c ♦ » - . - - - 

C» KROU • 


C ♦- '* 

C nr«« 

C KROy CONSTRUCTS A RON OF THE OUTPUT KAfttOCRAW. IT IS INVOKED BY 

C KTVR£. - 

C 

- C0nW0HyCl^IHVa>4^BUE^0BUF^LT44ISti^fBIii-«»tIH*C€H£T-B 

INTEGER CENLIN<6B>.CEHETH<G0) 

UiT-E-CEIt — 

BYTE CHAR(4> 

XHTEIlER-SXL^SXlItSO^ 

BYTE IHVB(5E) 

UitE4£e-XJJT-C6d> 

INTEGER OFSOl >. SCS(9B>. KLT<SB>. NST<SO) . EBNISB) 

INTEGEfc KSt.NSO, SCL2 — 

BYTE OBUF(312B>. !BUF( 2B488 > f LBB. LFF 

XNT£G£R-R-ECS^lZ^liAXHSI - 

DATA LBB/B/f LFF/ 127/, RECSIZ/ 1 624/, NAXKSL/2B/ 

JXAIA X/B/^y/^ax^RERL/X/ 

C 

C RET U RH I F MSD ^ B 

C 

- IFCNSO.Ea.a) G(t Ta B16- 

1F<HSL.CT.NAXNSL) CO TO 969 

C SET UP BUFFER INDICIES 

C 

iDT<n-i 

B0--5B I«^,^liBL 

50 IDT< I)»IDT< I-D + RECSI2 

NS04=i<HSa*4 >/2 

SCL2aSCL*2 

— c : 

C MAIN RON LOOP - PROCESSES EACH LINE HITHIH THE ROII 

--X- — - 

DO 206 L*l, SCL2 

- CALL PUT<OBUF, 6, 10> - - 

CALL ZIA<09UF<I0+1),HS04) 

C SLOT LOOP - PROCESSES EACH SLOT BITHIK THE CURRENT LINE 

■ C - 

DO 150 T = 1f NSL 

H*OFSCl> -- - - - 

NI=0FS(I+1) 

lEX4X4i£ . 6) GO TO 86 

C CHECK FOR FIRST SLOT OF A PAIR EHPTY, BUT SECOND SLOT FULL 

XFXKX,E6, 6) CO XO- 156 - 

C GOTO 156 IF BOTH SLOTS ARE EMPTY 

NL2»a 

GO TO 136 

C 

C DECIDE IF OBJECT APPEARS ON THIS LINE 

C- - 

96 CONTINUE 

HLTH»NL1<N) . _ 

NL2«HLTN/2 

IF<L.LT. SCU-ML2 OR. L.Ce SCL^HL2> GO TO 126 

LO=L-SCL+NL2 

C 

C CALCULATE INITIAL SAMPLE FOR OBJECT ON OUTPUT LIME 

C 

NSTH«NST<N) 


N.S2=HSIKX2 

IF<SCS(! >+NS2. GT . 5U) SCS< I)=5t 1-NS2 
IS^SCS<I )*HS2 


c 

C GET FIRST BLOCK # OF THE OBJECT 
C 

lB=EBH.LiO 

1F< IB. £0. 6> GO TO 120 
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C flYPflSS. OBJECT . If- HOT I-H JDIft€CTO«y-. 

LPBH-RECSI2/MSTH 

.HLO»«OMLO<kPRH)_ . 

IF<«LO.GT.0) GO TO 90 

90 ^J1 = IBT<I)+KL0*HSTN 

C _ 

C TRANSFER OBJECT SEGMENT INTO THE OUTPUT BUFFER 

.. C - _ 

CALL MVL< IBUFCJl ). OBUF< 1 0+ IS ) , MSTH > 

lS=IStH&IH 

C 

C.5E£ LF THIS IS THL CXHtROMERE- LIHE^ 

C 

JFCNFJLAG. NE. 0)_ CJa to 150 

IF<LO. NE. CENLIN(N)-l) CO TO 150 

C 

C CENTROMERE LlSEi FINB UHERE TO PUT THE CENTROMERE ARROUS 

. C , . . . - 

IT*IS-HSTH 

ITHAX*I-S-l. - - . 

DO tie IU==IT/ ITHAX 

lejlqbufc lotiu) .ax_iaa^G0...iflL..U2 

lie CONTINUE 

ao to il? — 

112 CONTINUE 

IT«IS - --- 

115 IT=*IT-l 

ixcjiauFciot IT) -EQ. LeaD-jca Ta,,ii3 

1 1? CONTINUE 

DO .118. K = 5 

OBtiF<IO+IU-K)=»LFF 

118 08UFCI0+IT+K)«LFF - - - - 

GO TO 150 

C CHECK TO SEE IF LINE CONTAINS OBJECT « 

C .- - 

120 CONTINUE 

IF(NFLAG. HE,9. 0R.L-LT.SCL-HL2-9.0R.L.GT,SCL-HL2--3-> GO TO 138 
C 

C LINE CON TAINS OBJECT i. SO PUT NUMRFP fHTQ flIJTPOT BUFFER 

C 

L0*L-SCL+HL2*9 _ . . 

IS*SCS<I )-l 1 

IFXIS.GT.500) ia»50e - 

IF<H.LT. 10) IS-IS-3 

HH*J{ 

IF<CEMETH<N>, EQ. 1) NM — M 

C FLAG. OPERATOR CORRECTED CENTROMERES . . . . .. 

CALL 0UTC0N(NN/CHAR<3>. 3> 

CALL TEXTCCHAR-3vLjaiOeUFCia+IS). l>- _ 

GO TO 150 
C 

C CKECr: TO ‘ZEt IF LINE CONTAINS GROUP ID 

130 CONTINUE 

IF< I . EQ. < l/2)*2)- GO TO 150 

IF<N1. EQ. 0) GO TO 143 

HL3=NLTXiaXi'2 - - 

IF<HL3.CT.NL2) NL2»HL3 
140 CONTINUE 

1 F<L . LT. SCL + NL2 + 5. OR. L . GT. SCL + HL2«U9) GO TO 150 

C LINE CONTAINS GROUP ID» SO OUTPUT A LINE OF THE ID TO THE OUTPUTBUF 

L0=<L-SCL-NL2“5)/2 
IS=^<XSCS< D+SCSX I-M 
IF< IS. GT. 4S4) IS-464 

CALL TEX T < D C 4^ LO. OBllF Ua+I^) *^24 

150 CONTINUE 

IF ^ Y .L T 4.02i:^ - CALL DL IN E ( O B U F < I O ^ t 1 . V . X. HS (k> R C P L.-a^ 

V»Y + R£PL*M 

200. CON-TINUE 

RETURN 

.. C -- - - - 
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C BUFFER TOO SHALl TO HANDLE THE ROB 

— C. 

900 CONTINUE 

CALL- WE--<A-***L.aaFF-EJt-T4)0--S^LL--FOR-JtOB^O 

CALL TYPEC'O' ) 

JtEXURH 

C 

— C HS0 ?0 

C 

-- 9L0 CONTINUE - 

CALL TYPE<' NSO-0') 

cali^-Type:c'-0' ) 

RETURN 

EHJl 


SUBROUTINE INT2 

C « * Ht % 4: « 

c* " ' ' 

C* IHT2 ♦ 

C>f ♦ 

C • 

c 

THE SECOND OPER ATOR INTERAC TION PH ASE. IT 
C AlCOlJS THE OPERATOR to El TNER APPROVE THE KARYOTYPE BHICH IS 
C BEING DISPLAYED ON THE GRAY SCALE DEVICE* FOR HARD COPY OUTPUT 
C OR ELSE HAKE CHANGES VIA H08 AND/OR C LASFY^K T YPE PARANE TERS . 

C 

CCOHHOR REGION 


COHNON^Cl^NSO* NFLAG*GID* SID* ISR/OFS* SCLT/ SCS 
CTJfOION/C 1>CHS IR;KaB';'STr01irSFLTH, SPAREA, CUftOLH.' HC 
C I/O BUFFER 


c 

c 

BYTE IDBUF<2124) 

nOB FftRAHETERS AND CURRENT PARAMETER HIGH WATER NARK 

■ THTEGER BOB P A R 153* ) . M . SHIP A8 ?4 ) • 

CLSFY/KTYPE PARAMETERS AMD CURRENT PARM. HIGH WATER HARK 


c 

niTEGER KTYPARC30«).K 
INT2 LOCAL PARAMETER BUFFER AND POINTER 


c 

' THTEGCR' PAR<T0«>/IP 

RE-HOB CHROHOSOME SELECTOR 


c 

L OC r C A C SEL «a 5 

CLASSIFICATION TABLES 


c 

nfTTGEin:wor« 


c 

c 

CHROHOSOME DIRECTORY AND ITS FORMAT 


i* 

w 

INTEGER CHD1R< 15*E0) 
BLOCK * 


c 

INTEGER BLKHO 
HUMBER OF LINES IH OBJECT 


c 

INTEGER DIRHL 

HOHBER OF SAHPLES IN OBJECT 


c 

INTEGER DIRH3 

LENGTH 


c 

INTEGER LENGTH 
INTECERATED OPTICAL DENSITY 


c 

c_ 

INTEGER lOD 
CENTROHEfilC IMDtCIES 

INTEGER CIL.CID.CIA 
CEHTROMEfiE LINE • 


c 

c 

c 

INTEGER CENLIN 
PERIMERE 

INTEGER PERIM 

AREA 

INTEGER AREA 

PERTH SQUARED DIVIDED BY AREA 

- 

c 

c 

INTEGER PSQDA 

CENTP.OHERE LOCATION METHOD 

Integer ceheth 

PHASE NUMBERS FOR MOB AND FOR CLASFY/KTVPE 



c 

INTEGER MOBPHA, kTYPHA. FOBPHA. BANDPH. FOURPH 
RE-RUN FLAGS 


c 

LOGICAL MOBFLG.KTYFLG.ALLFLG. OSFLG 
RAHOOH AREAS 

INTEGER SLCL. SLCS. SLID. S. Y.X. SLT. SL2 

. 
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IHTCGER SPAR< 16>/SST<513>. H&T<5t3)«Sl. S2 
INTEGER KEYCSry 

BYTE CAeEUp)/BLACK<72>«PftRBUF(90>.NOBB<5G8> 

C ClASSFIC:' ATION TABLES 
C 

INTEGER GID< J0)> SIBOd). ISR< € ) . OF S <9 1 ) , SCLT < 5) * SCSO0 ) 

C 

C BATA STATEMENTS _ 

C ~ 

DATA BLKHO/l/. DIRML/2/. DlRHS/3/> LENCTH/4/, I0»/5/. CIL/G/. CID/?/ 
t.CIA/8/. CENLIH/9/. PERIM/10/. AREA/il/* PS0DA/12>. CEMETH/13/ 

BATA NA.'<?AR/500/', F05PHA/G//M08PHA/8/. KT VPHA/9/. 8 AHDPH^ 14/ 

DATA DEGPRD/57.2958//F0URPH/15/ 

D_ATA LAB £L/7 3*^ BL A CR/72* 1 27/ 

DATA NkEY/37/ 

DATA MOBFLG/. FALSE. // KTYFLC/ . FALSE . ALLFLG/ . FALSE. /.OSFLC/. FALSE . / 
CALL MVL<*ARLBU B BCALSKNHMAICCFENXDEP SPHXIRICMCDSRF 
lA X C F R H S LDHBMDL H WAAXRBaB ^ # KEY/ 74 > 

C 

C INITIALIZE CHROMOSOME DATA SET 

CALL TYPE(' CHECK KARYOTYPE ',8) 

CALL RCA 

C READ CURSOR ADOUSTMEHTS 

CALL AFILE< lOBUF. 1/ 'RCR '.M3, M3) 

CALL QPEH<i OBUF/i824. V- t . ' RCR' ) 

CALL GLABEL<10BUF. SPAR. IB) 

CALL HVL< I08UF(IB+J+72>, LABEL <2 >/ 72) 

READ IN b I ^CT OR Y AND CLASSIFICATYoH TABL 


CALL GET< lOBOF, t. 18) 

CALL H V L<I0BUF<IB^t).H0B,18) 

CALL MVL<I0BUF<IB^31).CHDIR< 1. 1 >. 2*154>38) 

CALL GET<I0B0F.2, IB) 

CALL HVL<iOBUF<IB+31), CMblR< 1 , 3 1 ) . 2* I5»3») 

CALL GET<I090F,3/IB> 

CALL HVL<I08UF(I8+t).HS6,2*294) 

C 

C read' PREVIOS PARAMETERS 
C 

CALL RPARA«<M. MOBPAR. MAXPAR/NM^ 

CALL RPARAM<K. KTYPAR. HAXPAR. KTYPHA) 

I F(k. LT. 92) GOTO 65 
K*K-92 

■ OSFLG*.TRUE. 

C DO NOT RECLASSIFY IF OFS PARAMETERS ARE PRESENT 
C ERASE OLD OFS PARAMETERS/ IF PRESENT 
C 

65 IF<M.EQ.0) GOTO 180 

DO 7Q I-l/M 

IF(«6BPAR<r>:EQ/'SE' 75 

70 CONTINUE 

GOTO 108 

C REMOVE OLD 3£ PARAMETERS 
75 «*!-l 

C REQUEST OPERATOR INTERACTION 
106 CONTINUE 

iTe CALL PAftAN^NPVI^R7l80,P(ftHRBUFy 

IF<NP. £Q. 8) GO TO 508 

IP»1 ■ ' "■ ■■ 

C 

^eCODE PARAMETERS 
C 

DO 288 J=l/NKEY 

IF<PAR(IP>. EQ. KEY< J>) GOTO <1888/ 1858/ 988,918/958/ 1258/ 1380/ 1358 
1/ 1458/ 1589/ 1559/ 1688/ 165871788/ 1898/ 1858; 1958, 2888/ 2859/ 2125/ 2 158 
2 2288/ 2258/ 1 188/1159/ 1289/1759/2188/ 1858/1858, 1958, 2388,3 

3/ 2330/ 24 08/ 2458/ 2588 >. J 
200 CONTINUE 

CALL TVPE<' PARAMETER ERROR' > 

CALL TYP£('0' ) 

GO TO 188 
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250 CftLL TYPEC CURSOR ERROR') 

' CALL TYPEC’O' > 

GOTO too 

3 CALL TYPE<‘ TYPE OHE OF THE FOLLOUIHG KEYU0RB8 TO SELECT AH OPTION') 

CALL TYPE(‘ C - CHAHGE CENTROMERE <USE CURSOR)') 

CALL TVPE<' F - FLIP AHD CHANCE CENTROflERE (USE CURSOR)') 

CA£L TYPE(' R - ROTATE C HROMOSO ME (USE CUR SOR)') 

CALL TYPE!' rt- MOVE CHROMOSOME TO ANOTHER SLOT') 

CALL TYPEC X - REMOVE CHROMOSOME FROM KARYOTYPE') . _ 

CALL TYPE(‘ P - POSH A CROOP OF CHROMOSOMES RICHt OR LEFT') 

CALL TYP£(' L - ADD A LA6EL (TYPE LABEL OH SAME LINE)’) 

CALL TYRE ('A - ABORT') 

CALL TYPE(' S - SET UP CURSOR TO CORRECT FOR DRIFT’) 

cisnnnfFrEir* u or i“ froTE cursor or or~ DOvtin 

CALL TYPEC RF - RERUN FOB') 

CALL TYPEC DS - DISPLAY SPREAD’") 

CALL TYPE(’ BC - CALL THE BANDED CLASSIFIER') 

CALL TYPE('" RB - REROH TME 'BAHBEB CLASSlF lER"' ) 

CALL TYPE(’ 09 - QUICK BAND CALCULATION') 

-TYPEC UA - DTSPLAV UAVEFORNSM 

CALL TYPEC AX - DISPLAY AXES') 

CALL TYPEC' KC - CLEAR CLASFY TASAMTERS' ) 

CALL TYPEC' MC - CLEAR NOB PARAMETERS') 

CALX TYPEC' MA OA FE - MALE OR^ FEMALE') 

CALL TYPE(' NX - NO X SEPARATION FROH C CROUP') 

CALL TYFET’^lIFnrRRTOTYPE" IS OK, TYPE CATfRTACE RETURfr’^ 

CALL TYPEC0' ) 

GOTO 100 
C 

C parameter U OR D - MOVE CURSOR UP OR DO¥h 
C 

ffJA CALL H CO ^ 

GOTO 110 
9i0 CALL MCD 

GOTO 110 

c 

C PARAMETER BC - CALL BANDED CLASSIFIER 

950 CALL APHASE(9AHDPH) 

GOTO 700 
C 

C PARAMETER AR - SET MAXIMUM AND HIHIHUH AREAS OF VALID CHROMOSOMES 
C 

1099 CALL HV1<PAR< fP).M"OBP“AR(M+l). 8) 

M=M + 4 

HOBFLG=. TRUE. 

CO TO 110 

c 

C LU - LOCrtTE CEHTf^O^ERE BY BIDTY RftTHER THAN BENSITV 

c ■' " ^ ■ ' ' ■ ' ■■■ ' ■ ■ " 

1059 CALL MVL<PAR< I P> . H08PAR < 1 ) . 4 ) 

HOBFLG». TRUE. 

GO TO 119 

C 

C PARAMETERCi - SET CEHTROHERE OF CHROHOSOEH SPECDIFIEB TO THAT 
C IHDICATEI) BY CURSOR POSITION 

c “ ‘ ■ 

1199 CALL KURSOR(Yp X, Lp SpSLIDdSLCL.SLCSdH) 

IF<H.EQ.0) GOTO 250 
_ S^^H) TRUE. 

!: lu ./uvL I \ sio3P^<^ 

IIOEPAfMII-3) =H 
IUL = CHDIR(DIRHL. N) 

HOBPAR (M + 4) »L-*<SLCL~INL/2)+l 
CALL DL1N£<8LACK. V. X/ 4. 1>-1) 

CALL BLIHE<BLACKp Y) X. 4. 1,-1) 

IF<H0SPAR^rt + 4).'GE.THL,0R7H0BPAR(H44).L‘E i) GOTO 250 
H-M + 4 

f10BFLG=«. TRUE. 

GO TO 110 
C 

C PARISH £ TER FL - FL IP SPEC I dtUD CHROHO SOEH AND SET CEHTROHERE 

C 

1159 CALL KURSORCY) X, L/ S^SLIUdSLCL, SLCSdN) .. . 
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IF<N.E0. 0> GOTO 2Se 
SEL<N)=. TRUE. 

CALL HVL<'FL'.riOBPAR<H4l)/a) 

H0BPAR<H + 3)-H 

THL-CHDIRLDIRNL/H) 

H0ePAR<N+4)»L-<SLCL-INL/2)+l 
CALL DLIHE<8LACKrv. X. 4. i,-l) 

CALL BLIHE<BLACK-Y/ X- 4 . l.-l) ^ 

I F< H'0BPAR(H + 4 ) . GE.'iHL . OR . HOBPAR <N*4) . LE. l") GOTO 250 

H=H + 4 

NOBFLC-. TRUE. 

CO TO 110 

PARAMETER RO - ROTATE IHBICATEB CHROHOSOJE 80 THAT _THE 2 CU^ 

SPTS BECbM'VERf ICAL' 


1200 CALL KURSOR (Yy X. L/ S.SLtUi SLCL. SLCS.H) 

1F<H.EQ. 0) GOTO 250 _ 

CALL bLINE'<BLACK, Y, X-2. 3. 1. -1 > 

CALL DLIHE<BLACK< Yi X-2- 3# L' " L> 

■SEL(H)". TRUE. 

CALL «VL< 'RO'/ HOBPAR<H-H )/ 2) ! 

M0BPAR<M~+3) =H 

FRSTY-Y . _ 

FRSTX=®X 

CALL TYPEC*+«OVE CURSOR TO END OF^AXIS'.fJI 
call >ARA«<HP. PARf 100> 

CALL KUftSORCY/ X f Lf S> SL 1 Pf SLCLf SLCS# N > 

CALL DLIHEOLACKf Yf X-2^ 3f If “I ) 

CALL D L I H E < BL A C„K F y F X- 2 . 3 f. I f -_l > 

SY=Y 

SX=X - 

IF<FRSTX. E9.SX) GO TO 1217 

IF<FR$TY . LE. Y) JG 0 XO___l 2JA 

'SY = FRSTY 

SX=FRSTX . 

FRStY='Y 

FRSTX^X . „ 

1218 THEtA==ATAN2((SX-FRSTX>. <SY-FRSTY) ) 

TO 121^ 

1217 THEtA='0. 

1215 CONTINUE 

HOBPAR (« + 4) =*THETA»DECPRD 
tt=*M + 4 

Hd8 FLG». true: 

GOTO 110 

C 

C PARAMETER AL - RE-NOB ALL CHROHOSOHES 
C 

1250 ALLFLG-. TRUE, 

GO TO 110 

C PwRAilElER s;:. - OUTPUT SKELETON PICTURES INSTEAD OF GREY LEVEL PICTURE 
C . . - 

1308 MOBPAR(N+l) =»PAR< IP) 

M*N + 2 

MOBFLG=. TRUE. 

_ GO TO 110 __ _ _ — 

c ' 

C PARAMETER NN - NO OBJECT NUMBERS 

C 

1359 KTYPA?(X+1)'PAR<IP> 

X=K + 2 

J<TYFLG_f^TRUE. 

go’ fd‘ 110" 

c . 

C PARAMETER «A - MALE KARYOTYPE 

1450 ‘ k:TVPAR(I(+0=PAR<IP) 

K»K + 2 

KTTFXTT^TrRirr “ 

GO TO 110 - - 

C 

C PARAMETER KC - CLEAR CLASFY/KTYPE 

C 

1590 K=8 
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CALL UPARAH(K. KTYPAR/ KTYPHA) 

03FLG«.PAL8£. 

K f Y F LC «rt fnJ t. 

GO TO lie 

C PARAMETER FE - FEMALE KARYOTYPE 

■ ~C 

1550 KTYPAR<K+i)=PAR< IP) 

K=iC + 2 ‘ ■ 

KTYFLG=, TRUE. 

■“ GO TO lie 

c 

T^ATAMETEIT^X - HO X SEPARATIOH FROM C GR^OP ^ 

C ' 

tSee' KtYPAR<K+l)«PAR< IP) 

K>=K + 2 

KTYFLG=. TRUE. 

GO TO lie 

- ^ 

C PARAMETER DE DEBUG OPTION OH 

c "" " ' ' ' ' " 

IS 59 KTYPARC!< + n=»PAR< IP) 

k=k; + 2 ' 

KTVFLG=. TRUE. 

“ GO TO lie 
C 

C PARAMETER P - PUSH A GRO U P OF CHROMOSOMES RI GHT OR LEFT 

C 

1700 CALL KURSOR<Y. X. LI /SI T$L 1 / SLC L, SL'CS/H > 

CALL TYPE(^+MOVE CURSOR TO END OF PUSH S0) 

“CALL PARW<HP/PAR, i09) 

CALL KURSOR<Y, X, L2, S2.SL2. SLCL, SLCS» H> 

IF<S1.LT.S2) GOTO 1725 
C GOTO 1725 FOR PUSH TO THE RIGHT 

c ■ " 

C PUSH LEFT 

HSL=SLl-SL2+t 

IF(HSL.LT.2.0R.HSL,GT.18> GOTO 259 

Y»2^<Ll-l ) 

CALL DLINE<127, Y.2*S2.SI-S2. 1*-1) 

X*2>i'<S2-i) 

DO J 710 1-2/ 1.2.2 . . 

call 3 L't N E ( Fl ft CK Y f I - 14 . >♦ 14 - 1 . 2. I . - 1 ) 

1710 CALL DLiHECBLACK. Y+1. X+I,2i 1. -1 > 

CALL MVU<0FS<SL2>. PAR. HSL) 

C SAVE OFS IN PAR 

CALL MVUtPAR<2). 0FS<SL2)/NSL-’l) 

OFS <St^O_^PAR< 1 ) _ _ 

GOTO i 77S " 

C PUSH RIGHT S! LT S2 
1725 V = 2*<Ll‘-n 

NSL=SL2-SL1+1 

IF<NSL.LT.2.0R.HSL.GT. 10) GOTO 259 

CALL DLIHE< 127. Y. 2 *St . S 2-S t . l. -l) 

X=2*S2 

DO 1730 1=2.12.2 

CALL DLINE<BLACK. Y+I-14. X+I-14. 2. l.-l) 

1 7 30 CALL DL I HE (BLACK. Y+ I. X- 1 , 2. 1 . ~1 ) 

CALL MVW<6fS(SL1 >. PAR/NSL)" 

C A LL MVU<PAR( 1 >. OFS(SLH-l). NSL-l) 

0FS(SL1)=PAR<NSI> 

GOTO 1776 

c 

C PARAMETER MV - MOVE INDICATED CHROMSOME TO SLOT SHOUH BY CURSOR 

c ■ 

CALL KURSOR<Y. X. LI . SI . SL !B. SLCL. SLCS. H) 

CALL DLIHE<8LACK. Y. X-2. 3. 1. -1 ) 

SVSLID-SLID 

C AL L T YP E ( ^ +H 0 VE C URSOR TO 0 THE R SLO T ' . 0 ) 

CALL PARAM<HP. PAR. 109) 

CALL KURSOR<Y/X. L2. S2rs*LyD.SLCLVSLCSVN^^ 

CALL ADLCL1.S1.L2. S2. SST.NST. 512. 512) 

DC 1770 L=L1. L2 
Y=2»(L-1 ) 
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X = 2i:(SST(L)-l) 

1773 CALL BLIHE<127.Y.X,KST<D- l.-l) 

SVID=OFS<SLID> 

OFS<SLXD)=OFS(SVSLIB) 

OFS<SVStIB)*SYID 
1776 OSFLG^.TRUE. 

ktvflg=;true. 

GO TO 110 

C 

f £g SP - S ET SKELETON FftRAMETERS 

"C 

1800 CALL ttVL<PAR<IP).H0BPAft<r['frl>.8) 

K-K't4 ' 

ttOBFLG=. TRUE. 

GO TO no 

c_ _ 

C PARptnETER «X - SE T“«AX I «U«“ # OF CHROHOSOEHS PRE CROUP 

C 

1850 CALL «VL<PAR< IP)xKTVPAR<K4l), 24) 

K=K+i2 

KTVFLG«. TRUE. 

GO TO 110 
C 

C PARAMETER IR - SET INITIAL SLOT FOR EACH ROM 

'c ' 

1953 CALL HVL<PAR< IP).KTYPAR<K+1), 14) 

K«IC + 7 ■ 

KTYFLC«. TRUE. 

GO TO 110 
C 

C PARAMETER IG - SET IHITtAL SLOT FOR EACH CROUP 
C 

2000 CALL HVL<PAR<IPV;kTYPAft<IC4i),28) 

K^K+14 

(CTYKLG«. TRUE- 
GO TO 110 
C 

C PARAMETER HC - CLEAR NOB PARAMETERS 
C 

2050 N«0 

NIDBFLG^rTitrE. 

GO TO 110 
C 

C PARhHETER sc • SET UP THE CURSOR 
2103 CALL 3C 

GOTO 110 

C SETUP THE CURSOR 
C 

C parameter BS - Di SPL AV' ^PREA'O ■ 

c 

2 125^ CALL APH ASE (F 0 BPHA ) 

GOTO 700 

T ‘ 

C PARAMETER RF - RERUN FOB 

2 1 50 CALL APHASE (F08PHA) 

I^ALX UPARAHCeVNOSPARVfttlBPHA) 

CALL UPARANCO. KTYPAR. KTYPHA) 

troTO'~rsf0 

C RERUN FOB 

C PARAMETER AB - ABORT 

2200 CALL APHASE<0) 

&0T0 700 
C 

C PARAMETER X - REMOVE OBJECT FROH KA^^^^ 

C 

2250 C ALL KURSdR < Y, Xi LlVSl 7sX I»/SLCXVSLCS, M ) ^ " 

BO 2260 t«2.26.2 

CALL iriNEr&LACIC. Y + I-14. X4I-16. 2# 1, -1) “ 

CALL DLIHE< SLACK. Y* I- t4s y* t4 - 2, t , - I > 

2260 CONTINUE 

C BRAU AN X OVER THE OBJECT TO BE BELETEB 

OFS<S:LtB>*0 
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OSFLC=.TRU£. 

ki*^fiq^:TrWe. 

GOTO i 10 

c“' 

C L - ABB A LABEL TO IHDICATE BIAGHOSIS 

c ■ ■ 

2300 BO 2310 I»4 . 72 

Tl"< rv<PM3UTTi >) £Q. " 15) GOTO X32e 
23td COlUlNUe 

call TVPE<* IHCORRECf LABEL FOXhAT') 

GOTO 109 

2326 LA8LEN=*I-3 

CALL AFtLE<H08B; 1# ' PI C ',5/5> 

GWLTXPniTWO B rsi 2^^ 

CALL GET<H0B9. I, IH) 

CAUL PUT(-H0'B8> I7I«T 

CALL HVL<PAR5UP<3)/ H08B < IH +290) , LABLEN ) 

CALL CLOSE(HOBBy 

C ALSO ADD TO THE HOB OUTPUT LABEL FOR RESELLS BENEFIT 

CALL GLABETr<T0B0rr^ArjrT¥7 “ 

CALL MVL<PAR8UF<3). I OBUF ( I B+ 290 ) . LABLEH) 

CALL PLABEL ( I OBUT. SPARUT O0UF <TSV 1 V) 

GOTO 119 

■c' ‘ '■ ■' 

C PARAHETER «AVE - DISPLAY BAVEFORHS FROH BAND 

2350 CrtuL UpHRAlUd/ ^WAVE', BANTPH) 

GOTO 359 

C 

C PARAHETEF: AXIS - DISPLAY AXES FROH BAND 

_C 

2403 ' “ c all UPAR‘AH<2/ ' AXI S ' » BAHDPH) 

GOTO 950 
C 

C PARAMETER RB - RERUN BANDED CLASSIFIER 
C 

2 4 50 C ALL APHA SE^ F OJJ R P H ) 

GOYo 700 

C _ . 

C PARAHETER QB - QUICK BAND CALCULATION (ONLY THE C CROUP) 

C 

2‘500 CALL SS«TCH<7. iSU7) 

IF( ISU7, HE. 1) CALL UPARAH<2. *QB *>BAHDPH) 

GOTO 950 
C 

C DOME LOOKING AT PARAHETERS. SEE IF A RE-RUN IS NECCESSARY 
C 

500 IF<Uh6t. ALLFLGrAHD -HOT. KtVFLG. AND Xbt.HOBFLG) GO TO 700 

1F< . NOT. OSFLC) GOTO 559 

C 

C URITE THE OFS PARAHETERS FOR CLASFV 

Ic 

CALL MVt< 'OS' . KTYPAR<K+1 ). 2) 

CALL HVbCOFSrKtYPARUKX^ ' 

K=K+92 

558 CONTINUE 

IF( . HOT. ALLFLG.AND. .NOT. nOBFLG) CO TO S58 

Z F( A L L F L G ) “ G b f 0 6 i 8 

C 

C HOST RE-RUN HOB OH SElXCTED CHROHOSOH^^ 

C 

CALL HVL< 'SE' . H0BPAR<H+ I >. 2) 

H«H + 3 

H»«H 

H«=0 

DO S00 M«i/N0B 

IF< . HOT. SEL(N)> CO TO 500 

H=H+l 

NH*H«+l 

"mobfarUhV^h 

600 CONTINUE 

IF<N«.EQ.0) CO TO 695 

HOBPAR(HH) = NH 

CALL PuYlo'surVi. 1*8) ‘ ■ 

CALL MVKNOB. I08UF< IS+1 ). 18) 

CALL >iVL< CHDIR (iTl ) /I08UF< IB+'31 ). 2»15*30) 
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CALL PUK lOSUF, 2. IB> 

CALL ttVL(CHDIR(l r3 r)riOBUFCIB^'3l)/2*i5^3B) 
GO TO 6ie 

'605 

C 

C SELECT ttOB AS NEXT PHASE TO 8E RUM 
C 

S10 CALL APHASECHOBPHA) 

CALL WPARAfKH. HOBPAR. HOBPHA) 

CALL UPARA«<K. KTYPAR, XTYPHA) 

GO TO 780 

c 

C SELECT CLASFY AS HEXT PHASE TO BE RUM 

c 

650 CALL APHASE<KTYPHA> 

CALL UPA(.:AM(K/ KTYPAF. KTYPHA) 

COhTINUE 

CALL CLOSE< I06UF) 

CALL EXIT 
END 


SUBROUTINE RESEL 

C RESEL IS USED TO ENTER INFORMATION ON MEASURED CHROMO 

C SOHES INTO KROHBATA. THE INPUT IS FROM MOB OUTPUT. 

C 

. . I MPL IC IT- I N 2) 

COimON^C 1 - NBUF. KBUF. NEXT, NOSED, PI D. RECS, OH, ONL, OHS, 
lOLEH/OIOD, OAJTEA. OCIL*Oei0rOCIA/OFS 

RE'.L-i«3 DIIK3) 

REfiL»4 CFOUR^SO, 8), PHK68, 8), MUCtB, 24), SrCNACtS, 24)-- 

REhL*«4 I SUM, ASUM. ALSUM. LEN, C I,NCC, SUMXY, OCFOUR <5 1 , 8 ) , 0PHK51, 7) 

- 1 NTE^Eir^riTt-rOT^- r;C SPARC 5) , Pt DC4 2g) ,RE C SC 

BYTE ON(e0>, OHL<80>,ONS<60>, OL£N< 88) , OC IL <88>, OC I D< 88 > , OCI A <88> 

BYTE PBUF<563>i-L-AB£Lt t^4)-, C<3848>i-0B^DATA«B7rT 

BYTE MBUF<2104), KBUF< 5$ > , FWSG <4 8 ) , TrtSG<23), GKSCC 128) 

INTEGER^ P«PAR< lfr> - 

INTEGER SPAR< 18), KSPAR( 18),OIOD<80), 0AREA<88>, 0FS<98>, 

£T F S ( 98- > -r SC A N^ T 4^ ) , T H < 98 > i HN < 6 8 ) t QFS <98 > f HFQ ( 1 6 ) ^ 

EOUTVALEHCE < OBDATA, OCFOUR ), < OB DA TA< I 6 3 3) , OPKI ) 

CQUIVAttNCE <C(5?), «U)i-tC417&S),SiGMA) 

ECU I VALENCE <SPAR<6>, SC ODE), <HLP, PSPAR< l)> 

DATA H0v^3v, Dni/^ 46X>T ^,-^46XY ^ ' 45X0- ^ / 

DATA NFD/6, 4, 1 6, 6, 6, 4, 4, 8, 8, 9, 6, 4, 15, 6 , 6, 4, 5^ 8, 0, 8/ 

1 6 . 4 / 15/6iSi 4 i 4 . 8 j e . O / — 

DATA CMSG/128** 

DATA TFS^ l , I, 48/48> 2, 2, 45b-49^> 3^, 3, 4^, 48,-4, 4,-^jr5>40i40- 

2, b, 6, 7, 7, 8,8, 9, 9, 18, 10, n, 1 1, 12, 12, 23, 23,49,40 

4 3, 1^3,. j 4, 4 

4, 19, 19, 20, 23, 40, 4 0,2 6. 26, 25, 25, 21, 21, 22, 22, 24, 2 4, 40, 4 0 

— — 

DATA GFS/I2*!, 6*2, 18* 3. 8»4, 1 8 *5, 6*6, 2’*8, 1 9*7 , 8*8 , 19*9/ 

DATA CMT/6I>‘ - 

C CURRENT MISCELLANEOUS INDEX » 61 

c - ' ■ -- - - - ■ ' 

C OPEN MOB OUTPUT AMD COPY NECESSARY DATA FROM MOB LABEL 

C 

CALL SSUTCH<10, ISU19) 

IF< ISUIA. HE. 1> CALL APNAS£<t9"T - 

C IF SU18 IS DOWN SET TO CALL ABNORM 

CALL AFILE<M8UF, I. *RCft V«t3> *13) 

call OPENCMSOF, 1024, 1 . 0, 'RCR ' ) 

CA L L e LA B£ir<-HB UF>S P A R i X L> 

CALL MVU<MBUF<ML^13), SCODE, 1 ) 

CODE=^CODE 

IF(SCODE LT.8) SCOD£=-SCOD£ 

IF(SCODE . GT . 0. AND. SCODE. LE. 15> GOTO 5 
C CHECL FOR VALID CODE 

... 

RETURN 

5 CONTINUE 

CALL MVL<NBUF<ML-h73>, GMSG< 1), 64) 

CALL MVL <M5UF <ML^*298), GMSG( t07>/22> 
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CALL MVL<HBUF<«Lf73>.LABEL.64> 

ttvt-ett& u p-<-ntrT i4S). tAegt<6 a )>f e> 

CALL HVL<«BUFCMU-2I7).LAeEL<85>.2») 
CALL i1Vt<>IB<>FCML-r2«S->-/l-AeEt-^1-85y7^e)^ 
C SAVE LABEL IHFORHATION 

C 

-e — 


OPEN KROMDATA AND GET NL 


CALL AFILE<KBUF,4/ »KDATA 

IF<COD^E. LT. B> CALL AF rL€t1CBUFv4v^B^DA^TA 

CALL 0PEH(K8UF. 1024.0/2, *KRM' ) 

CALI. GLABEt<lfBiJF,KS^PAH/iCL)^ 

NL«KSPAR< l> 


fiv6> 


C RErtD SOURCE DIRECTORY RECORD 

C " • — 

10 CALL CEKKBUF, 3C0DE,ICD> 

IFCHUSED.lt. 35) GOTO 22 

C IF SPACE !N THIS RECORD GOTO 85 
' tFfHESCTT^GrB-)— GOTO-20 

C IF LAST DIRECTORY RECORD GO !1AKE A HEU ONE 

SCODE=NEXT ^ 

00:0 10 

C GO READ NEXT D I RECT 0 R Y ft £ COR D 

20 NL=HL+1 



C STORE NEXT RECORD IN THIS DIRECTOftV RECORD 

CALL PtrT<lCBUFv SCODCVKD)- 

CALL CET<K8UF. NL.KD) 

SCODE»Ht- 

NUS£D>0 


“22“ 


d^ A tlT TiitIF 

COli r InucT 


DO 24 1=1, 421, 5 

TFCPtDM^-.EIJrB)- GO-TC 2^ - 

C IF THIS SLOT IS FREE GOTO 26 

-24- COHTTNUE 

CALL TYPE<' RESEL ERRORS 

C A L - t T YR £ " C *e* ^ 

PAUSE 12345 

26 CALC-HVL<1:AB£L<2t)vPTSCTT^, 1^) 

C STORE PATIENT ID 

tlUS^E5*Nt)5E!hM 

lR=«<I + 4)/5 

>^ EC*R£C$Clft) 

IF(R£C.NE.8) GOTO 28 
C 'GOTO 28 TF -THrS“'JCECCRD^ iFA5-m-ET«'' 
NL=HL+1 

C- NEED TO HAKE A NEW RECOltD 

REC=NL 

R E CS<I R)= ftg C 

IF<C0DE. LT. 0) ML=*ML<-3 

C ADD 3 H08E IP BANDED 

28 CALL PUT<KBUF. SCODE,KD) 

CALL CLA8ELCfC8Ur/ltSPAir.-KL-) 

KSPAR( n=NL 

“C-UBD AT g- HL 


C 

c 

c 

c 

C-- 


CALL PLABEL CKBUF, KSPAR. K8UF<KL'H) ) 

GET nOB OUTPUT DATA AND TRANSFER TO KRONDATA 


-Grr 


CALL GET<n 8 UF. 3 , HD^> 

I I = ND + 2i5 

DO 30 1*1,90 

I i*r 1 + 2 

CALL 2IA<ON,40> 

CALL 2IA<HN-,60) 

CALL ZIA<TN,90) 

CALL 2IA<HFG. t0T 

DO 40 J*l,90 

hF^O F 3 (J> . ^O . 0 > GOTO 4 0 


G*CFS< J> 
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HfC^C>»HFG<G>-Ki 
THCOFS(J) )*TFS<J) 

40 COffTlH^e 

C 

C IlECC^SARY DftTA FFON MO© LABEL AND LINE I TO KOOr 

C 

CALL CEKHBUF. 1/ MD> 

CALL PUKKBUF. REC. KD) 

CALL HV«(LA8EL.K8t>F<KI)*l >. 62) 

CALL MVU<MBUF (NB+l ). M08. 1) 

50 IF<TN<N> EQ.0) GOTO 68 
C 

C GOTO SO IF THIS OBJECT IS NOT TO BE EMTE*? 

C 

— 

IF<T.LT. 60. AND T.GT.0) GOTO 68 

T»CMT - - 

IF<T. GT. 80) GOTO 80 

C 0SE NEXT AVATLABLE SP0CE IH *HSCELLAIfE0iLS-AREA' 

C«T = Cf1T+ I 

^0 -e0tfT^R«e 

IF<0N<T) . EQ.0) GOTO 70 

C GOTO 70 IF FIRST SLOT FOR THIS TYPE IS EMPTY 

T*T+1r 

70 OH<T>*H 



80 CONTINUE 

- H^N^l 

IF(N.LE- NOB) GOTO 58 

-c - -- 

C TRANSFER CHDIR. 30 BYTES IS OFFSET OF ONL ON NBUF 

e 

n*38+ND 

1-3T'»l - 

IEHB*30 

DO 108 ^=^1/2 -- - - - 

K»e 

Be-00" ! « rs T>-t Ettfl 

K»K+l 

NNI^HN<T> 

IF<NHI.EQ.8> GOTO SO 
IH^<K-l><-30+ii 

CALL MVL<«3UF< IM + 3).0HL<NHI), 1) 

NVtr^HS- UF < I N ♦■ 5 > i O HS < - H 

CALL MVL (M8UF< IH+7 > . OLEH (NHI ) . 1 ) 

csu«^sim+i 

LSUN==LSUN + OLEN<HNI ) 

CALL NV«<H3Uf<l»+S).OIOD<HNI), l> 

ISUN=ISUM+0I0B(HN1 ) 

eAL e-NViK HBtI F < I tt^2-t>i-O A R E A- < N H I ) . i > 

ASl)H=>ASUM+OAREA<HNI > 

CALL rtVL<HPUr <in+n). OCIL<NHI >i l> 

CALL HVL(H8UF< IH + 13). OCllXHNn. 1) 

CALI «VL<NSUF< Iff+I5y, GCIACNNI t) 

98 CONTINUE 



CALL G£T<H9UF. Z* NB > 

TST»31 - ■ - 

lENB^NOB 
I I«30+HB 
180 CONTINUE 

eAti^#ViheC0t N1. K B UF(KB T l2 g y - » U 

CALL MVOaSUN. KBUF<KB+I27)- I ) 

CALL nVUaSUN. KBiiF<KB+129^>i2) 

CALL fiVUCASUH. KBUF<ICD-M33)^2) 

IF<eOBEvGT;0) ti(TTO 190 
C 

r GfFEAl?- PROCCGSr-ffS - ' - - 


CALL GETCHBUF. 4. IN) 

CALL «V0<HDUF< IH+I )*CFOUR< I, D.480) 
CALL GETCWBUFJ 5/ZH) 



4,122,518 


206 


205 

CALL MVB<«BUF< IMM CF0UR<1. 5), 48®) 

c Act-«Tr«mrr7-ffr tr) 

CALL HV®Ot3UF< IH-i-l ),PHI< 1/ 1)> 48®> 

CALL Grr<«BUF/7/H1) - 

CALL NVU<MBUF(IM+1 )-PHI (I, 5)- 480) 

30 1 10 N=r. N03 
7 sff (N ) 

xrtrr EO^ 8 : 0R. T .C T . 5 1 ) "CtrTtr 

C GET THE FOURIER BATH 

DO I02 X*ri8 

192 OCFOOR<T. n-CF0UR<H4 I ) 

DO 184 lat,"? 

194 OPHKT. I>»PHKH, l+l> 

ttO t-O HTIH t t g — — 

199 CONTINUE 

C URITE RECORD OH KROHBATH 



CALL «V«<0N.K8UF<KB+M3).449) 



DO 289 9 

CALt OUTCtmt^NFO<i:>/ 6frSG^<«04-O^M^)>'4r 

289 HC==HC4NFG<G> 

1^At t OU^reOltt«t^.-i;H9tU88>-/4^> 

IF<IV<GHSG< 197)) .ME. 32) GOTO 223 

C— TP- D P-ERA tO R S UW-lEP A DlftC M OSI S GOT O 2 D 8 

BO 220 N=l. NB 

. 2~tr0 10 

IF<NFG(G>.HE. HFB<C/ N)) GOTO 229 

2t8 CONTINUE 

C NFG HATCHES THIS DIAGNOSIS 

GOTO-2-39 

220 CONTINUE 

C Her MATCH 

225 N=e 

GOTO 250- 

230 CALL HVL<DID<N). GHSG<197)4 8) 

(TAtrtr-ITVt-CDTP CH). ICe UF< rD -M 8 C -)- > 8) 

259 CALL AFILE<PBUF. 1/ ^FIC ',5,5) 

CALL 0FEH(FBtrr.siZi^. 2r*mnn 

CALL CETCPBUF, I, IP) 

CALL OUTCOirCREC/POUFCIP+t7S)4 4) 

CALL HVL( 'RECORD'. P BUF< I P+ 168 >. 6) 

— tryropr~R- ccoR D- NOH8 C R rr M o s ou tp u t f o it m c opt 

IF(N.NE.a) CALL HVL <D 1 0 < H) . P8UF < I P+299 > . 8 > 

CALL PUTrPSUF/1/ IP) 

CALL CLOSE<PeUF) 

C STORE DlACNOSrS N IN PREP AND NOD OUTPUT FOP HCOPr 

CALL MVL<' *4 XXXXXXXXXX ON RECORD XXXX *.FHSG. 31) 

CT»tr-trv c rtAg£ tcDn7 -rH SGC3 ) . ie> — 

CALL OUTCOH<RCC. FH$G<29).4> 

CALL HVtXGHSG^ClD7r/FHSG<^2T.D) 

CALL TyPE<FHSG) 

IFTCCDE. GT.O) GOTO D88 
C WRITE THE BANDED RECORDS 

S C X^l. 3 

CALL PUT<KBUF. REC+I. IK) 

CALI HVU<08DATA< r*^t8^4-tP23^)>KBUFCIP’M )>3tD) 

270 CONTINUE 

398 CONTINUE - 

C WRITE PATIENT REPORT RECORD 

CAL L M r I L c ( PB U F/ 4. ‘ r DAT A ' . S . S ) 

CALL OPEN<PBUF. 512/ 0. 2/ 'PRP' ) 

CALL GLABEKPBUF/PSPAR. IP) 

NLP=NLP+t 

CALL PLABEL<PBOF>PSPAR. P6UF< IP+D) 

CALL GET(PBUF. NLP. IF) 

CAttr HVL-<<mSC-rPMFX-IP^l-)-i-L28^ 

CALL PUT<PBUF/ NLP. IP) 

CALL CL0SE<P8UF> 

CALL CLOS£<KSUF> 

CALL CLO$E<HBUF> 

CALL TYPE('8') 

-'-pEtUPH 

END 
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C f1ASK2 - COMBIHE 2 PICTURES ANB P BORDER 

C 

SUBROUTINE MASK2 < 0UNX T* F I LPEX > 

IMPLICIT IHTEGER<^^-2> 

REAL STATS<256) 

B?T£ Br(62^^hrC<9S^2>, LE < 12 > i R£< I 2) 

COMMON STATS. LE. C. RE 

TH TEG E R^g U)U < &l 2 ) . H I G H X 541 ) 

EQUIVALENCE <LOU;STATS). <HIGH<1). L0U<2>> 

IHTEGER+2 SPAR<S>, SPARO< 5).T»AR< t0>,K-£Y f 3> - 

BYTE FILPEX<12) 

- 

DATA NKEYr3/. KEY/' H I ' / ' HS' , 'KG'/. HFL AC/0/. NFR/ 128^. IS I Z£/ 188/ 

C A LL AFIL&^ -A ^r ^- 'PIC 

C ASSIGN DK1.PICC5. 53 AS DEFAULT FILE FOR HOB OUTPUT 

- - CALL 0PEH-(A^3872.l^d^ ^N0B^ V 

CALL GLABELCA. SPAR. IA> 

CALL AF^ILE<Br^.-/-PIC ^,-3,-53 

C ASSIGN DK5:PICC5. 53 AS DEFAULT FILE FOR KCM 

i C ALL RP ARAI U N P.P A R . 10) 

IIIU IP»l 

3 rF<IP -G1^.W> G^TO-^0- 

DO 5 U»1.NKEY 

IF4PARX-TP-X,«. ICe¥<4>-V-COT43--t4 0.^«.-l«.^ 

5 CONTINUE 

4 C^ L L TYP E< / 4fcjL. P ARA M C T 6R C ARq R ^) 

CALL TYPE<'0' ) 

PAIXSE 

10 HFLAG=1 

CALL- 21A<STATS.5i2> - 

IP=IP+2 

Q(M--Z 

12 ISI2E=PAR<IP+2> 

- TP=:^lP+i - 

GOTO 18 

15 CALL AFTLE<B^PAR<TP+2KPARXTP+3>^i*2) 

C ASSIGN A DIFFERENT KGM FILE 

10 C43M-I IH U£ 

CALL OPEH<B. 3072. 1 . 0. 'KGM' ) 

CALL- -GLABELCB^SPAR^S. -tax 

HL-=3PAR< I > 

TF<SPARB<n.GT.NL) NL=aPARaU> - 

NS=SPAR<2)+SPARB(2)+1 

lF44iS . GT . MA X aaX-HS^ M A N NS 

IF<SPAR<-3). NE, 7) NFR»25S 

CALL MSUa<A<IA+l).MS.^DUH4T.FILP£XV 

C LABEL CALL TO NSUB 
DO 100 L-l.NL 
IF<L.GT.SPAR<1>> GOTO 50 

CAi^l^-C g T < Ai^- L ^ l Aj — 

CALL MVLCA< lA+l). C. SPAR<a>) 

41040- 55 - 

50 CALL ITLA<0.C. SPAR<2>) 

55 C<SPA8424-M >«^127 

IF<L.GT.SPARB<1)> GOTO 60 

CAUU-0£ J - 4 B^ L^ 1 03 

CALL MVL<B( IB+ I ) . C < SP AR < 2) +2 ) . SPARB( 2) ) 

.. CCTO-65- -- 


6 0 CALL 1 TLA (0. C < SPAR < 2) <^2 > . 8PARB< 2 > > 

- 65- CALL-MSUBXarilO) - 

IF<HFLAG . EQ . 1 ) CALL LST AT< SP AR< 2) . A< lA^ 1 ) . ST ATS. t . 1 > 
r TF HT«T»ir.PA« eFOUg55TF.U. ^ftTHPR THF STRTt«lTIft« 

106 COUTIHUE 

IFCHFLAG. EQ. 0> GOTO 280 
Il=t 


C CONVERT THE FREQUENCY COUNTS TO REAL NUMBERS 
DO 129 1=1. NFR 

S.T AT-S(4 3 = LOO<-I I4+H 1 GH C4-I->.^42 760-^ 

120 11=11+2 

CALL MSUB<STATS. -NFR. lOIZE) 

GOTO 220 
CALL HSU5(9.0) 

CO;iUHU£ 

OAL4--CLOCE-<-aX 

END 


200 

^23 
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SUeROUTIHE MSUB<LOC»HSO. XS I ZE« F ILPEX > 



REl^L STATS<256>. HRXF. HSIZE 

BYTE FaPEX<12>. ieeB> 

COiMMOH STATS. DATA 

iNTEC£R^2 FR£a<25B>.SPA^R<4i^ -- - 

EQUIVALENCE <FRE9. STATS) 

1 S 4-Z £454 

BYTE DSftN(S258). T<21B4). DHSC<29) 

EOUIVALEHCE <DSRH<445B^)^^^^),-<DSft+l<B2B7^.^UW) 

BYTE LAB (51 2). L0C<9?6>. BUFUddB)/ LN< 4> / LOGN ( 4) 

D <VT A-N AX HS A9 7 6 ✓ /-M4-H »S 

DATA SPAR/0/B.4. 1.512/ 

D A T A^ H A X P^ / 1 . /. HS 4Z &/ 2 BA, / . L/ Q /. UH XTC/15/. S TEP/ U/. t BB/A/ — 

IF<LBU.CT.0> GOTO IBB 

C C0-T0--1BB-IF NOT- INITIAL- CALL - 

CALL AFILE(DSRH. IS 1 2E. F I LPEX . 2. 2) 

CALL SS0TGH45^ISMB) 

8UFSIZ»3072 

IF ( I B 0- 5 - , E Q. i) BU FS - 1Z - 2 B4S — 

C IF TAPE OUTPUT. DECREASE SIZE OF OSRN TO HAKE ROOH 

CALL BPEN4DCRM^^BUFBI2^1^1^'BSIC' >^ 

CALL HVtf<LOC. LAB/25C) 

CAL4.-4W<L^AB(^>.BPB> - 

C SAVE LABEL AND BPE 

NS =^ HS O 

IF(HS. GT. HAXNS) NS*«AXNS 

H8D2^4»S-KL)v^2 - - - 

C HSD2 IS THE NUHBER OF UORDS TO MOVE TO DATA 

- 1F<-HC,-LT. MINHS) MS^MIH^+S - - 

C niNHS IS THE MINIMUM SIZE FOR THE DATE AND TIME LABEL AND HSTGRM 

HS^r MS*3 4 

N«U=<NS0+l)/2 

SPARL2)-*HNy 

SPAR<4)a512/Ny« 

IF<SPAN44^X. E«. SPAR<4^)^I 

CALL PLABELCDSRH.SPAR.LAB) 

IJLC I -SyS. N E. I ) GO T O 3 0 

CALL MVaCl. T<21). t) 

CALL MVa (-•^521 40,-T< 23^X, L) 

C SET MVB FOR MTO: 

CALL OPEN^tT. 1024-. 1. 5. 'TAP'T 
CALL MVaa. T<51). 1 ) 

- -t- 8P8^a4 

CALL MVU<HS«. T(45). 1) 

C RECLEH=^HS« 

CALL «V«(HSy. T<47). 1) 

C SLOCKS-IZL ^ HSU--- - - 

59 CONTINUE 

... CALL Z IA(&UF. NUU) 

CALL UL1NE(DSRH. L6U. NSU.BUF. 04) 

C UR-ITE 4-aLANlC LINES- 

CMID«l3+NS/2 

CUU»HS^32 - 

C GREY UEDGE WIDTH 

B-tJaattni=4.C*CUU~l 

B2»32«GUU43 

CALL -ITLAC2^.-8UF<314,R2X - 

CALL yLlN£(DSRH. LBU. HSU. BUF. 01 ) 

C ALL ED GE iUHXX STEP- . aUE-. NS > - 

CALL yLIHE(DSRN. LBN. NSy.BUF. 12> 

CAI . UFt\HF < AMF- NA> 

CALL UL1NE(DSRN. Lay. NSy.BUF. 12) 

CALL ITLA(255. BUF(81).B2) 

CALL ULINECDSRN. LBU. HSU.eOF. 01 ) 

C WRITE GREY SCALE - - 

CALL ZIA(BUF.Nyy) 

CALL-UlINCCDSRN^WL-NCU-^aUFV-44 

DO 80 K=0. £ 

IF<K EQ.3> CALL RE F< 5. BUF. NSU-> 

BO 70 N=190. NS. 168 
CALL OU7COHCN.LN<4>, 4) 

78 CALL TEXT<LN(2). 1. K. 8UF<H+S). 1 ) 

CO CALL-UUNE4- DC RNi LB U . NS W . BU-FV44 

CALL REF(25.BUF. NSU) 
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CAtt 

C URIT£ TOP REFERENCE NARKS 

. -CALi.- lTi.At?55.3UFC5>^8> 

CALL ITLAC255,BUF<U+NS).8> 

CAL L NLLNE C BSRN. LBU. HSU . 90F* >l-> 

RETURN 

.108 COH-TIHUE 

IF(NSO,LE.0) GOTO 280 

C--IE- EHB- OF PICXURE^- COT-0 208 

IF<BPE.N£.7> GOTO 110 

CAU HVN7aiLar^nAIA(13)« HSB2> 

GOTO U5 

- XIZ CALC-RVtt-CtfiC.-BATA<C3T^NS02-> 

U5 L=*L+l 

.C.5T£F. IK^Ut CIRE-JNUnaER- 

CALL ITLA<0.BATA(1), 12) 

C ALL ITLAT0^AIACLa^*M£l^L2) 

C ZERO LINE REFERENCE NARKS 

LP3^?L+3 - 

«L*N0IKLF3, 100) 

- . XFCNL. GT.6.CR.L.-LI -4)-COtO--l30 

C TINE FOR HUN3ER OF HUHBREBS 

CAL L OUT CON (1 P3 

CALL TEXT<LK<2). 1. NLi BATA<2)^ 1 ) 

-- CALL- TEXT^LH<2X. t>tlL^ BATAX17*HS>i^l) 

GOTO 140 

130- CONTINUE - 

IF<ttOIUL.5).HE. 0) GOTO 150 

- CALL JTLAC255>.PAJA.<33>-8) 

CALL ITLA<255. BATAdZ+NS), 4) 

C INSERT EVERT 5 NARK - - 

140 CONTINUE 

IF<«0B<L,25>. NE.0) GOTO 150 
CALL ITLA<255.BATA(9>.4) 

CALL-I-XLAC288^ATA-< L3j.NS4-.-4) 

150 CONTINUE 

CALL ULI HE USRH. LBU^NSUv BATA/ 1) 

C WRITE ONE LINE OF BATA 

RETURN - 

209 CONTINUE 

C -ClNAC-£ATATV-4lR-LTE-OOTT04i-aF -R-TW^frE 

BO 240 K«l/ 11 

IF^K.LT.S)- CALL REFt23/^BUF/AS0> 

IF(K. GE. 5. ANB.K. LE.6) CALL REF <5/ eUF/ NSW ) 

IF<K.£Q.9) CALL 2IA<eUF>N0U) 

IF<NL.GE.S> GOTO 220 

NL»HL+l 

CALL TEXT<LNt2>/li^NL/BUF<^>^t> 

CALL TEXT<LN<2)/ 1/ NL/ BUF< 1 7tH$ >/ 1 > 

- 228 CONTINUE 

IF<K.LT.5> GOTO 249 

.. __ ' ... . 

lhLL GULCOtKN/ L0GN(4 )v 4) 

230 TALL TEXT(L0GN<2>/ 1/ K-5/9UF<N+9)/ 1) 

249 CALL UL1NE(DSRN/ LBW/ HSUiBUF/ 1) 

C WRITE BOTTOH REFERENCE NARKS 
CALL ZIA<BUF/NWU) 

C AL L - W-L I NE441SRH^ L B NSW^ g UFV-lr) 

CALL ITLA<255,eUF<Bl)/B2) 

CALL WL1NE<D8RN/ L8W/NSW/0UF/8n 

CALL WEDGE<255/ -STEP/ GUf. NS) 

CALI WLIHE<BSRN. LBW/HSU/BUFr 12) 

CALL WEDGE<gHlTE/ STEP/BUF/ HS) 

CAL4.--UL1 NE488IU^ 1 2-4 

CALL ITLA(255/ 0UF<ei )/B2) 

CAL L W L I N£ < BSNN , L 8W^ -N SU / 8U Fr 81) - 

'C WRITE GREY SCALE 

nAXCHR^<HS'Kll 12 - - - 

JHAX»433 

38-25 8 J ^ 7Z . 4HM^2 

IF<IV<LAB(J-1)).HE.€7> GOTO 26B 

C FINISHED- WLTN LABELS TF-4<a C- IH COLUNH 72 

JlaJ+1 

C -SNIP THE FIRST 4.A8EL CHAR AC T«WHICN IS ALW8VS BLANK - 



4,122,518 


214 


213 

C FIHB THE LEHGTH OF THIS LABEi. 

B O 2 4-a 7 0 

IF<LAB(U-i-7e-n.HE.32> GOTO 243 

242 COWTT-HOE 

C ENTIRE LABEL IS BLANK 

c WO- 258 

243 LABLEH-78-I 

2 44- C H B « t A B L E H — 

IFCLABLEH. LE. HAXCHR) GOTO 247 

€ SFfcl-T OP -LABEL -IF- IT IS TOO-L-OHG - 

DO 245 1-1,28 

lF4LAB<Jl+HAXCHR-I-)-.Efr. 32) GOTO-24E- 

245 CONTINUE 

— C— HO--B L AHK FOU N D I M-2 8 C HABAC- TER S. HAKE A RB l - T AA RY 8PHT 
1 = 1 

2+6 CHR»»AXCH«-I*L 

247 CONTINUE 

CALL 2IA<60F,H80) 

CALL WLINE<DSRN, LBU, NSU,8UF, 84) 

30 2 4 8 K-8, 6 

CALL TEXT<LAB(J1), CHR,K,SUF< 13), 2) 

CALL -ULIHE< DS1?H, LBW, HS»,B0F,»2> 

243 CONTINUE 

C URUE LABELS 

Jl-Jl+CHR 


IFILABLEH. GT. 0) GOTO 244 
^50 CONTINUE - 

260 CONTINUE 

IFIHSO. EO.O) GOTO 428 
C SKIP HISTOGRAM IF HSO £0 8 

HSO — 

HSI2E=ISI2E<1 ) 

-CALL -2IACBUF,-H«U)- 

CALL HLINEIDSRH, L8U, NSU.6UF. 4) 

HFRm-=HFR-l - - - - - 

DO 320 1-2, HFRNl 

I FC S J A I &C D . LE . H AX F ) G O T O 32 8 

NAXF-STATS< I) 

320-GOHTINUE - 

IF(STATSa) .CT. HAXF) STATSCl )-HAXF 

-iFCSIATStHFR) .XI..HAXf->- SIAT8CNFR)«HAXF-- -- -- 

DO 330 1=1, HFR 

338 FREfiCI )-<STATS'l)/NAXF) -HSIZE*. 9999 

BAR«=HS/HFR 

HSTAP.T-<HS-8ARU*HFR)/2*12 
J-HSIZE 
340 H-HSTART 

DO 350 I»1,NFR 

1FXF:REOC-I.X.HE-OX-SO T O 358 

C TINE TO STORE BAR FOR THIS OH 
CALL ITLAC255. eUF<H), BARB) 

350 H=H+Bh2U 

CALL ULINEIDSRN, LBU,HS0,8UF, 1) 

J s J — J 

1 f^cj-G E. e ) c aro-348 

C THE FOLLOWING CODE WAS CONHENTEO OUT TO NAKE ROOM FOR TAPE OUTPUT 

C Da-3-70.-J-8,-64,.5< - - 

C CALL 2IA<BUF,HWW) 

C - HSTEP-J4BARW 

C HHAX=HSTART«HFR*BARU4t 

_£ im..3Sa- H«HST ART,HMAX,HS.TEB 

C 368 CALL ITLA < 255. BUF (H ) , BARW> 

C .C<tLL.-WHHe-CDSRH,LBW,-HSW,-8UE,5) 

C 378 CONTINUE 

-C -CA-LC ZIACBOF^HWWX - 

C CALL WLINE(DSRH,LBW, NSW. BUF,2> 

-C HS- T £Rgl6«BAR W 

C DO 488 K-8, 6 

C H-HSTART— — 

C CALL TEXT< *8', l,K,BUF<H-2>, 1) 

C DO 398. H».16,-NFR,.16 - - - 

C H-H«HSTEP 

-C LE.CfiA.Rli..E0.1 AHD.H0D(H.321 EO.IS) GOTO 398 

CALL OUTCONIH, LH<4>, 4) 


C 
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C. - - COTO 38ft 

CC H tS 2 CHARACTERS 

C CALL TEXT(LN-<3X.ft,-K.<^BUFCH-5T^l X 

C GOTO 388 


C 398 CONTINUE 

C 480 -CftLL »LIHE <5SR»UL8U^-NSft.ftUF-. t) 

420 CONTINUE 

CALL MVLL’Bft^HMft-^YV HH. NN.SS JPL/tALHS'.ftHftC.ftftX 
CALL DATECSHSO 

ftftLL .TLmft.gms-cct-1-u 

CALL ZIA<BUF. HU0> 

CALL OLINEiBSRN. LB4I,NSU,8UF/ 16) 

00 480 Ko0, 6 


CALL TEXTCOaSC. 2ft, K. BUr <2’*HaU-353).^2 ) 
CALL ULIHECDSRH. LBU, HSU,BUF, 02) 

„4X_URIT.E- OAIE 

480 CONTINUE 

CALL ZIAIBUF, HUU) - 

CALL »LIN£<I)SRN, LBU,NSU,eUF/84> 
SFARCl)=LB« 

CALL PLAe£L<BSRH, SPAR, LAB) 

- C R E U RI T E Lft8EL - 0 U 4i- C ORR EC T - H L 

L»e 


-LB0S0 

IF<ISU5. HE. 1) GOTO 500 
CALL CLOSE<T> 

CALL UEF 

CALL- W EF 

CALL BSF 

. 500 CALL CLOSEtDSBN) 

RETURN 

END. . 
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C BANS « 

C * ... 

C «•**•<(:*« «*« 

c 

C FIND UAVcFORN ANO FOURIER COEFFICIENTS FOR BAN8E8 CHRONOSOHES 

....C 

COHNOH />C1/ HOB, lOlR 

CONHON ^Clv CHWft, Sm,BftF.4.BC&UF,MS,NL. CUROLK 

COMMON /Cl/ SST, EST 

CONNOM vCt/ -SPIOB,ftPLTH.ftRAReA 

COHNOH /Cl/ HCHR 



COKHON /Cl/ eANDil^HIS 

HOttHOH-xC-l/ -OaUF-i^ailF- 

BYTE LRGBUF<79.88) 

BYTE- 0aurC4-l52) 

BYTE TEHPB 

LOGICftt nBT1> Q RT 2A..0FT3^SEL X ga> 

INTEGER TEMPI 

XNI£G£R-_SP-8R.C5.>,JaFB<Z2^ 

INTEGER BHAX 

XHJEBER-BAIilKXGBi 

INTEGER K:PAR(28e> 

XHIEGEJL.BPI 

INTEGER CHDIR< i5.6B> 

^ I HI E GEB-CtlBOLM 

INTEGER PAR<10> 

integer ClPARMtX38> - 

REi^L CF0UR(69x BI^PHKGd. 6) 

REAL-BBXSXXSB-) 

REAL COSINE(150),SlNEa58) 

REAL A FO UR < B3 . BX, BR OURCBB^u BX 

C 

ECU! VALEHCBCXPpPP. QlUSXaX,.4X2^>^Y^TAR.-ftF^*WIF-> -- 

£CUIVALEHCE<YP/PPP4 QQQrSlGYf JY2, YEHPp BF. JOV > 

ECU I VALENCE (Y TERN/ PPPPP. NLL. LL, NG. NDIV. R«J, JLL) 
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eOUIVAUNCe-(^Aft(M«BP4.r 
EQUIVALENCE (CFOURd. U, AFOURU, 1 >> 

EQUIVALENCE ( PHK K 1 ) / BFOURa - - 

EQUIVALENCE (NL<NLO) 

-E Q U I - V A L E HCE < HUt U ia. Il ) 

DATA LUIN/8/- OPTI/. FALSE OPT2/. FALSE. OPTS/. FALSE. / 

C LENCTU -OF UIHDaQ-POR.UAVEFOR.it CALXULA-TIUN . OIL STRAIAMT--CHROHOSONES -- 
DATA SEL/60*. TRUE. / 

PAR< 1)«8 

HP-1 

JIO- tU KP-U-HPARv.2-- - 

IF<PAR<HP). EQ. 'QA* > 0PT2-. TRUE. 

... aF.tPAR(NP-).E0-. ?AX-*-)-4IPT3«. TRUE. - - 

IF<PAR<HP). HE. 'OB' ) GOTO 10 

OPIla TRUE. — 

DO 8 i-i. ee 

e.-. SELCI.1-. -FALSE . 

10 CONTINUE 

. - C- - . ... . . 

CALL AFILEIOBUF. 1« ' RCR '.•13. *13) 

CALL OPEH(OBUF.-PO40. 1.0, 'RCR' > 

CALL GLABEL<OBUF. SPAR. IB) 

IB=0 

C 

CALL GETIOBUF. 1. IB) 

CALL nVL<08UF<IB+3).SPI0D. 12) 

KCHR sil VCOBUF U.atJ.ZX)i 

CALL NVL(0BUF(t8-»31),CHDIR(l. 1>,2*15*38> 

CALL CEKOBUF. 2. IB) 

CALL «VL<OBUF( 18+31 ). CHD IS <1 , 31 ), 2*1 5*33) 

CALL CEKOBUF. 3. IB) 

CALL HVU<0BUF(217+IB).0FS. 72) 

XF-L^HOJ . OPT 1 ) GOTO 30 

DO 28 1-19.34 

IF<OFS(i),Ea.e.> jGOTO 2ft 

SEL{OFS< I ))-. TRUE. 


20 CONTINUE. . , 

30 CONTINUE 

-_C 

DO 310 I I-l.NCHR 


-. 1F.< .HQT.^SELUX)). tOTQ.Slft 

CUROLN-CHDIRd.II) 

NL.-CN0UK.2.X1). 

1F<CUROLN.EQ.0) HL-0 

NS=CHniR<3. 11) 

IF<HL. LT. 1. OR. HS.LT. 1> GO TO 318 

HC-J0 

LPC-1024/NS 

C._ LIKES/GET 

C 

DO 300 1-1. HL 

CALL CETCOBUF. CUROLH, IB) 

XF<I.EQ_1.1 LASTIS-lft 

CUROLN-CUROLH+1 

no 30l.XI.I=L.LPa. 

NG-HG+l 

. E URlTEf iL-?B 8 Bl f OBIJF f .1 + 1 R 1 . .[■I .M AI 

CALL HVL<OBUF< IB + 1 ).LRGB0F<1. HC), NS) 

lB=lfttMS- - 

IF<NC. CE. HDCO TO 311 

301. . CONTINUE - 

309 CONTINUE 

XL CQ HTIHIIF 

TEST THE ORIENTATION . 

SCAN ALONG X (ROD) DIRECTION 

JX2-HS/2 

- . I 725.NL/2 

HH2-0 


C 


HSECX-O 

NSEGY-0 
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JDXL 4ea -JLe Li-HS. 

lf<LRGBUf (J. 2y2>.NE.a> NNZ»NNZ^1 

lFCLRGB0FCJ>iy2>.E^e-fl) -NitZpa 

IF<NNZ.£a.3> NSEGX>KSE62('M 

400 CONTINUE 

C 

_ C MOy_JSGAN_IJljrjH£_^UOjLiiJHH ) SIRECUiliL 

C 

HHZ-0 _ .. _ 

C 

JttO 401 . 

ir<LRGBUE(UX2. 1>.HE.0> NNZ^NHZ^l 

I*^ClRCBUf (UX 2 . n £Qi 0 ).iHHZ»O. 

IF.IOiZ.EQ.S) HSEGY = NSEGY41 

401 CONTINUE 
C 

C 5ECIBE IF IT IS- PROBABLY BEHt OR Hat HRyOE 

C 

LFxiia-j;x^25x -GiL j:a-430 

IF<KS£GX. EQ. 1 . AN9. HSEGY. EQ. 1 > GO TO 410 
IF<NSEGX.GT,1 -ANfl.HSECY.£0,l) CO TO 429 
IF<NSEGX. EQ. I . AHB. HSEGY. GT, n CO TO 430 
GO TO 440- 
C 

— _ XOHLXliOE 

STRATCKT 


-BO 4 LI- la 1# HL 

LASTB^^a 

im .AOS-ALg U-HS — ~ 

lF<LRC&UF(U«n.Ne.0> GO TO 406 

LABTB^J - - 

405 CONTINUE 

-.406 tOHTUIUE -- 

FIRST0*HS+1 

BO 4 jB7-^hL. ms 

LFCtRGBUFXAlT^ eX-GO -TO -400 

FIRST0-J1 

.407 CORTIiiUE 

408 CONTINUE 

IRBTfttl Xz 2 

IBAN0«6 

lL»LAST04^l 

IH»rrRST0-l 

IHKIL*LH-IL+1 - - 

1F< IHNIL. LE.tyiK) GOTO 4200 

^C_1F UJUXIH IS L£ mKHDil-ALIOTH GOTO 4200 

IK»LAST0-«'LyiH 

- no -4i0aL_a=iu IK 

4100 lBAHD»IBAH9*i‘LRGBUF< j/ l> 

ttB0Nn»IB0Hn - 

C NBAN9 IS tlAXlHUN VALUE OF LUIH SANPLES 

- JjLSlB 1X^±K±1 - 

IBAND*lBAHD-LRGBOF<IL. I ) ♦LRG8UF ( I K. I ) 

C »OVL ONE -PLACE -OVER . - - - - -- 

IL«U+1 

IFaBAHD.GT-HBAHB) HBAND-IBAKD . - 

IF< IK. LT. IH) GOTO 4150 

C „CH£C K IF . AIX^ &AitPi.£S- ^ ROCESSEJ - 

BAH0<I>^N8AHD/LUIK 

GOTO 4055 - 

4200 3)0 409 J*IL. IH 

409 IBANB^lBAND+LRCaUf U- 

BAHDID^IBANB/IHHIL 

- -4095 cnariHUE 

IF<0PT3) LRGBUF<LL. n>l 

411 CONTINUE - 

C 

C- - . - . - - 

GO TO 440 

-_4l 00 GOaUilUE 

C 

C FLIP IT DIAGONALLY 



ooo o r>r*jnor» 


221 


4,122,518 


222 


439 C0HTIHU£ 


BENT AH9 PROPERLY ORIENTEB 

AVt Y (I) 

NLt-<<HL/3)*3)+l 

HP=0 

NSIGY=e 


DO 431 NLL/ 3 

DO 431 J = l. HS 

IP<LRGBUF(JW).EQ. 9> GO TO 431 
HP=HP+1 

NSI GV = NS IGY+FLOAT< I ) 

431- CONTIllUL- - 

I2ER0=NSICY/HP 

AVE X (J> 


NSC=(<KS/3)*3>+l 

M?«9 

NSIGX«8 

. DO 4a2- J=?U>lSi^*^3- 

DO 422 1=1. NL 

XE<LRGBUFCJj n .EQ.J0> GO XO .422 . 

NP*HP+1 

NSIGX«HSIGX-^J 

422 CONTINUE 

J2ER0=NSLlIiX/HP. 

C 

.. ..k\x-^Jd 

A21 = 8. 9 

Ai2=e. e 

A22=9. 9 

A13=9^9l - . 

A31=9. 9 

A32=0.0 

A23=9. 9 



T»0. 9 

A33=9- 9 

U=9. 9 

C 

c 

c 

HSI12»NS-2 

DO 590 J*-UHSH2-t 3 

DO 599 1 = 1. HL 

C- - . . 

1F<LRGB0F(J. I) -EQ- 0) GO TO 599 

XPJ=^U2££i) 

yP=I-*IZERO 

. A33*A334U0 - 

XTERH-XP 

YT£ftrt=YP 

A23=A23+YTERN 

U=U.^11ERN 

T=T^XTERN^YTER« 

YTERH-YX£JiB*YP - 

S*S+XTERH*YTERB 

A^^*A2^♦YTERH 

YTERH=YTERH*YP 

A21 = A2-ltY t £:RN 

YTERW«YTERN*YP 

AU=fttl + Yt£R« - 

C 

509 CONTINUE 

C 

_ _ _ Ai_2-ARX _ * . . ... 

A13=A22 

A31=A13 

A23=A32 

PP=S*A22*A33+A23*<A12*U*Ai:3*T) 
PPP=*U*A22*At3 + A23^A23*S + A33*T*Al2 
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pppp=6 1 1 t.Yl 



PPPPP = A2 2*A22*A13+ft23*A23*ftll+ft33 + ftl2’»8l2 
P = CPP-PPP)/<PPPP-'PPPPP) . 

Qi3=rt23*<S-A i 1 ^P>-'A13»<T-A12 + P) 



Q=QQ/QQQ 


c 

r . . . . . . 

C 

C 

c 

- NatV-»3 

... 

c 

JICE 780 U NC - 


— 

YP=I-IZERO 

- BJmYj»2^-ft#-P*YP^ft- - 

DYDX = 1 .O/'DXDY 

DY=DXDY 

- 

_ c 

XP = P»< I-I ZERO >4-*2+ft#<I-I ZERO )+R+JZERO 



HJ=XP+e. 5 

HI = YP-+IZERO^0. 3 



TF^'OPT.T) 1 P<JPUF< WJr hi )«l 


c 

c 

- c 

- BAHDXl>»LRGSUF<KJ/ MIX - 

- T1I=:YP+I2«a+8.-3-Dy --- * - - 

MJ=XP+1. 5 

— 

c 

1F<«I. LE. 0)CO TO 781 

IF<«1. CX. HL> GO^ Ta-7ftl 

SAHIXI )>B0HIK1 )-i’LRGBUF<NJ/ HI > 




«I=YP+IZERO+ft. 3+DY 

5 


c 

lFXrtl.LE,0) GO TO 781 - - ^ - 

1F<«I. GT. HL) GO TO 701 
£AND<I ) = aANDC r) + LRGSUF<J10^«I ) 



__ CO TO 782 


c 

781 - 
Z_02___ 

COHTINUE- -- - 

NDl V»2 

BANDXI>=BAHD<I)/*HDIV - - - 

NDIV=3 

CQNTINUF 


78ft 

BANDn) = BAHD<I)/NDIV 

CONTINUE. . .. . . 


C 

r 

CALCULATE LENGTH-- 

- . 

u 

PT5sP+p 



YSTftR=-0^PT2 

..VEHB»FU0ftT<HL^/■^..e-y8TftR 

PYE = P*VE«1> 

... . PPY£=>PYEi-PYE . .. 

£L^PPYE*SORT(PPYE*PPYE*l.e)+ftLOCCPPYE«SORT<PPYE*PPYE-»l .0)) 

C CHDIR^4^ I Ii-FL^PTJZ-f.e 3 

c 

C USE rtOfi LEKGTH CUE TO UMUSUAt RESULTS ! 

C 

440 CONTINUE 

C 

C 

C POURIER COEFFICIENTS 

C 

c 

c 

- - 

DO ?10 1=2/ NL 

1F<E5ANDCI>.GT.BNAX) BflitX aB AMD < I > 
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719 CONTINUE 

C . . 

BO 71t I = t,NL 



711 CONTINUE 

C 

HHARH-8 

- -- F.HLO.=>FLflft.t< W. --1 X 

PIL*6. 2832/FHLO 

_C 

CAUL $SUTCH(4. I8U4> 

-- .-iJt<Js«4,.Efl...n.j:AjjL._Ti«eji 

C 

-.HLHALF?<HLtll/J2 . 

BO 5929 J-l.NLHALF 

RH J»FL0AT(J-1)»P1L 

l-RNJIsJ 

COSIN£IJLeLMJL)«CO.S<.RRa> 

SIHE<LRHJI>>SIH(RNJ> 

. MtHJPl»JlLrJ*l 

COSIHEIHLNJPD-COSIHEILRHJI) 

SIHE(NLMJP0»-S 1HE<LBW.IT^ 

5929 CONTINUE 

C. - 

BO 5959 I-1,HHARN 

AF-9..9- . 

OF-a.e 



RH=FLOAT< IH1)*PIL 

C ... . . 

DO 5919 0-1. HL 

.jai.-a.-i . 

C R«J»R«*FL0AT<J-1) 

f P N.IT = .l«ll -7 N1 

LRHJI-HODCLRNJI. NL-D+l 
C __ 

AF-AF+AHIS<JJ*C0SIHE<LRHJ1) 

aF-BF+AHI5<a)-Sli(£<UlNJl> 

5919 CONTINUE 

.. ,C 

AF-<AF+AF>/FHLO 

BF-(BE+5FX/F.NL0 

C 

. CrOURIHUNOB.. I>*S0R.I<AF*AF*8E*BFi 

PHt<HUH0B.I)-ATAH2<8F,AF> 

...t 

595# CONTINUE 

IF<IS«4.Ea.l) CAtL TIMER 

C 

lF<.H0T.-0P.T2i GO- TO Bl# 

BO 811 I-l, HL 

u (!«;< lilBTH OF OAVEFORN IS 29 SAMPLES 
JDIF-NS-JUV 
JLL»JDIF^2<-1 
JUL-N$-aBIF>r2 . 

BO 812 J-1, JLL 

- ~B 12 LRCBllE(J..n-a 

DO 813 J-JLL/JUL 
813 LRCBUFCa. n -127 

DO 814 a«JUL. NS 
B14 LRGBUF<J,n -0 

811 CONTINUE 

840 OON-MIUIE 

C 

IF4.N0T. OPT4.AHB..HaT.O.pT2X-tO-.TO- 3t« 

C 

CUROUN=CNBIR< l.iO 

HG-9 

— U>G-Kl9?.t/HS 

C 

Da.888--Ip-1,NC -. 

CALL GEKOBUF. COROLH, 16) 

B0..631 -II.I-.lxI.PC. .... 

NG-NG+1 
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CONTINUE 

-GORTXNUt- 

CALL f>UT<0BUF. CUROLH/ I9> 


IF(HG.GE.HL) GO TO 84 1 

C0HT4NUE 

CONTINUE 

CONTINUE 


OUTPUT FOURIER COEF'S TO FILE RCR 
CALL PUT <OBUF. 4. IB) 

CALL «VU<CFOaR<L>^l X. C&aFCie*T ).480) 
CALL PUT<OBUF. 5> IB) 

- X ALL Jt-VU < C f OU ft 4 L . 5 ) ^0&U F X -l 8 . i aX.-4^L. 
CALL PUT (OBUF. 8. 16) 

CALL V. L). OBUFCIC+L)^ 488) 

CALL PUT<OBUF, 7, IB) 

CALL HVUCPHK 1> 08LIF< I8-H 488) 




CRCATE -PARAWETERS FOR PHASE 1-4 CCLA8) 


no 4888 I-l.NCHR 
ClPAR«<9 + 2-M) = CHHlRC4, 1 ) 

Cl.EA&ll ( iat?*-l) ? .OiniR(A.. U 

If <CHniR< 1/ I) . EG. 8) CLPAR«(8+2*l)-8 

IF.CCHDlRiLlt.n^E-Q.e) CLPARfiCia+8tI i?8 

6LKN0 IS 2ER0. THE CHRONOSONE GAS REJECTED BY KOB 
a. CONTINUE . . 


SET UP _ P 8RT _QF_CNRQ HOSOilE, PI RECTORY FOR NEXT. 
CLPARNKD^-HCHR . 

POSITIONS 2 THRU 18 HAY BE REGARDED jAS. SPARE 

CALL. . ttPikll'AM < t 3«.> CLPA9H* tS> - 

.■ ' ^ 

IF 1; CALL APHASECid) 

SU8 IS UP, CALL KTVPE INSTEAD OF FOUR 
IFC0PT2 Oft. 0PT3) CALL APHASE<18) 

CALL EXIT 

- -EHD 

SUBROUTINE FOUR 


CONWOM /Cl/ SPIOn, SPLTH.SPAREA 
CCHNOM /Cl/ NCHR 
COhNON /Cl / CFOUR, PHI 
COHHOH /Cl/ CBUF,BUF 

IKTEGLR JV<50>. 1 1TAB< 193)/ JJTA3(108) 

_ . 8Y^T-E-_ ,ms ca 32-) 

BYTE 0BUF<2124) 

BYTE C<3840> 

REAL LTAB<60>, CTAB<88) 

THLEOER 8TARTX20>, lHCRt25),«HC<23J.- 
IHTEGER L0FS<91) 


INTEGER CLPARN(138> 

IHXEG£R-CPAR<5.) 

INTEGER SPAftCS) 

XliXEGER-CJUROL-H 

INTEGER PPL 


INTEGER NCHftOH<24) 
4-NXE 0£ R - CLASS XS - 

BYTE HSG(30> 

. REAU-DXSrClS) 

REAL VECTOR<18) 
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REAL MU(i8/ 24) 

. REAL-S UHAX-18v-2A) 

REAL HBUrnS/ 24) 

- REAL-SEUf.(18. 24X- 

C 

RQUIVAtEHCFCttBUFCl. 

E0UIVAL£NCE<SBUF<1. 1).C<I785)> 

EOUIVALEfciCE-CSBUF - ~ 

EOU I VALENCE <MBUF<1. )) 

£ftUIVALEHBE<KP-AR-Ca).0FS<4)4- 

C 

jmtA-Hf!£AS/l£/» LMEAS/! t/> TNEAS/.?/* J«EAS/t2^ 

BATA V«AXl/38 . VMAX2 /36 . VNAX3/58. // VNAX4/50 . VHAX5/64. ^ 

_ DBTA I BB/3-4^ 

BATA JC!/'6// JC2/13/ 

C SLOTS TO BE CL ASS ! F I E3- tf I TH HV&RIB CLASSIFIER 

DATA NEXTPH/20/ 

C -NEXT-PHASE-LO-SAU^-f OR-A^fcR \ D - C L A S S I F ■ I £R 

DATA ia«EAS/2/. IC2H£AS/3/>KX«EAS/l/,NCftOUR/24>' 

DATA STAR-T-v^ 1 ^ U. L5 S. 2 1 . 23 * 2S^ - 

t 27.29.3 1. 37. 39, 41. 45i 49, 51, 

1 55. 57.E5> C7. 34.^73.2-4 - - / - 

DATA IHCR/22‘^ 1. -I. -1. 1/ 

BAXA-ftN C ^2S^*^2->4 

DATA OFS/IIS'^0/ 

DAXA NCNR0»U2 4*a^ - 

DATA CLASS /63*0/ 

C - - : 

C OBTAIN PARAHETERS. LENGTH AND CEHTROHERE INDEX. 

C 

CALL RPARAHCNPAR.CLPARX. 130 ) . 

CALL SS«TCH<4. ISU4) 

lF<aaU4^ER.l> PAUSE 15 

C PAUSE IF SU4 IS UP 
C 

NCHR^^CLPARNCI ) 

C 

C READ BACK FOURIER COEF'S PRODUCED BV BAND <PHASE 14) 

C 

CALL AFILE<OBUF. 1. *RCR ^M3.M3) 

-CALL jQPXNXJiail£.J^2..4^,l RCR-f ) 

CALL GLABEL<OeUF.SPAR. ie> 

1F<0BUFCIB+134). £«-“115) «HC<23)*1 - - 

1F(0BUF< IB+104). EQ. MBS) HNC<24)»0 

C- . . - ... 

C CHECr FOP SEX OF H OR F AND CHANGE X AND Y NAX 

CALL GEKOBUF. 3. IB) 

CALL MVL(0BUF{217*IB>. UOF5<i)> 1B2X 

C 

CALL. CEKOBM/ 4* IB) 

CALL HVL<OBUFO'»IB).CFOUR<1. I>.9£8> 

C- 

CALL CET<OBUF. 9, IB) 

C ALL H VL i OB UF <_ 1 + 1 B 1 . UFO UR< 1^- 5 ) . 56 a.) 

C 

CALL. GaT<J0BilF..6,_lB^> 

CALL NVL<0BUF<HIB).PHK1. 1>,96B) 

_JC 

CALL GEKOBUF. 7, IB) 

CALL nVL ( JOB UF < J.+ PH 1_C 1^ 5 5601 

C 

JC 

c 

c 

C XHJE: RYBRUl-CLASS-lFlER-(iS£S-RESOLT5-aE 

C THE CONVEKTIOHAL CLASSIFIER 

-X . .. 

CALL SSUTCH<7. IS«7) 

XFX1SBL7 KF U. GOTO BOB 

C GOTO 800 FOR THE HYBRID CLASSIFIER 
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C $(|I? UP IS FOR A FULL FOURIER CLASSIFIER 

ISi-l-... - - 

IS2«90 

JCJUa 

JC2*24 

. - HEXTPH«9 

GOTO 828 

800 COailHUE- - 

CALL HVU<LOFS. OFS. 98) 

CLAL L- ■2LIA-CQf-S.Li.SX.)^3.5r.JA ti 

C FOUR UILL CLASSIFY THE C GROUP STARTING WITH !S1 
CALL 2IA<0FS< 13).4) 

CALL ZlA<0rS<37),S) 

CALL 2iA<OFS<55). 4) 

CALL 2lA^0FS<t3>.4) 

IL-KF.L^.UILL £.LASSIEJY-fi...H^L.. AHD_£ 

C 

C. 

826 1F<NCHR. L£. 4S> GOTO 836 

C IF MORE THAN 4S, ALLOtt FOR 2.-X- AHD ^ Y . 

«NC<23)*»2 

Mli£LLE41»2 

836 CONTINUE 

C . .. . 

C GET MEANS AHB SICHAS 

C . 

CALL AFILE<C. 4. 'CSATA ',*6. *6) 

CALL, OPIvH.<C,.35e4,>,.6. 'CBA:* > 

CALL CLhBEKC. CPAR, IC) 

CALL GET <C. 1. IC) 

895 CONTINUE 

C 

ITOTL*0 

H REiXlUttCHR — 

DO 899 I lat.NCHR 

IF(CLPAR«<9 + 2*in. EO. 8) HRELCH=« HRELCH- 1 
I T0TL»1T0TL+CLPARM<9+2»1 I) 

899L CONTINUE 

FTOTL = 4^5 . 4.IT0TL/HRELCH 

DO 4da4-4^4-^l4CMR 

LTABd )=»<CLPARM(9+2*I ) + I8606. )/FTOTL 
CTABO)«CLPAftrt<19'K2*n 
C STORE REAL LENGTH AND Cl 

4 0^86 CONTINUE 

C 

„ X 

DO 896 II»1.HCHR 

DO- 896- JJ-ai^NGRaUP 

LlKLE<n, JJ)»999. 

896--- CONTINUE - 


jC 

c 

- CALX CS4iTCNC6,-IStt6-X 

IF< ISU8. EQ. 1) CALL OPRIHK'I 

-.1 - 08J CROjUP--- -DLEii DCXA- VXEU --VCXA- 

2 VCSUH VPSUM TVARd 

X 

DO 960 1S»ISI. 1S2 

-- - U-LOFCCIS) 

1F< I 1. EQ 0) GOTO 908 

C . -- . - 

IFdSUa.EQ.n CALL OPRINK' d 


DO 903 I UC2 

JJsIJ - -- - - - 

1F<JJ.EQ. 13.AHD. 1SU7.HE. 1) JU»23 

SIGU2»SICMA(iaM£AS. JJ> 

aiCZ22aSTr.HA^K2MEASi J-,n 

IF<Srcn2.LT. 0.00001) SI Cl 12=». 000 01 
1FCS1G222 .lt, 0.0000L> S I C222-=» ,8086 1 
C 

D 1ST (1) = LTABC 1 I ) -MU CKIME AS. JX) 
DIST<2)=CTAB^ I I)-MU<K2MSAS. JJ) 
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lF<VeCTOR(l).CT. VMAXl) GOTO 993 
VECTaR t2 > =*XBI£T< 2)vGl C222) *OlST<2 > 
1F<VECT0R<2). GT. VHAX2) GOTO 903 


FSUH=0. 0 



DISTl = CFOURn I. I-3)-f1U< 1, JJ) 
FSUtt=>F£Ufl+OISTX*fiI5.TX/-S^tanA tI/^J) )- 
CONTINUE 

IFCFSUrt.C-T, VHAW) CatO 9^3- 

psun»e,0 


BO 908 I-^JnEAS^HHEAS 

DISTI = FHl-CU;.l-ie)-«U<l* JJ). 

IF<BISTI . GT.3. 141(5) BIST 1-6. 2832-BISTI 
1F<BI$TI. LT. ra,^416>..BlSn«--£.2a3^^1lISTI 
PSU«=»PSU«+BI5TI>»BIST1/SICNA(I. JJ) 

CONTINUE - - . 

IFtPSUM. GT. VriAX4) GOTO 983 

L 1K.L£< n. = VECTOR (1 ) + VEC TO R ( 2 ) + FSUM+ P SUfI 
CALL SSUTCHCO. ISUO) 

IF< ISliO. NE. n GO TO 9010 
JV< t >=II 

JVC 2)1=00.- - - 

JV<3) = DTST(n 
0V(4)=BIST<2) 

JV(5) = VECT0R< 1 ) 

0V<6)-VECT0Rt2) 

JVw')^F3Urt 

ovxsx=P-au» - 

0V<9) = LnCLEUI.00) 

DO 9009 1=1,9 

CALL OUTCON<OV<n, O»SC(ia^nM0) 

CALL QPRIHT<0NSC,9a) 

CONTINUE 


CONTINUE 

COHTIHUE 


DO 932 IK=1,NCHR 


I ISAV=0 


DO 950 !0=0C1. 0C2 

JJr-10 . 

IF<00. EQ. 13. AND. 1SU7. HE. 1) 00=23 


C IGNORE CR-OUPa THAT A8£ FUU 

C LOOK FOR UNCLASSIFIED CHRONOSOnES 

C. 

DO 951 IS=ISly IS2 

LX « LXkELSiXSO 

IF< I I. EO. 0) GOTO 951 
-IF<4:LASSCU).HE.^) go TOJ 9St- - - 
IF<L1KLE< II, 00>. G£. ELNZN) GOTO 953 
£LNIH=LIKL£CXUJJ) 
nsAv=ii 


CONTINUE 

CORTINUE 

CONTINUE 


_lFXXLSAy-^Ea,.a).-(UL. TO- 960^ 

CLASS< nSAV) = OJSAV 

NCHROM COOSA V) = NCH.ROrtC JOS AV) ♦ 1 

OFS(START<OOSAV) )=1 ISAV 

SThRT<OOSAV)=START<OOSAV>+IMCR<OOSAV> 

CONTINUE 


CONTINUE 
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235 

C LOO^ FOR UKCL^SSIFIEB ANB SEC IF MOVES CAN BE MADE 

C OOER-UP TO 100 LIKEllMOOBS IN li-TAB ANB.4JTAB 

C 

jjQ-3Ba-JX«i^xaa 

ELMIH-VMAX5 

DO 250-XS-ISl. IS2 -- - -- - 

lI»L0F3<iS> 

lE<lI..Eft.0) GOTO 250 - ^ 

IF’(CLASS< II ). HE. 0) GOTO 250 
DO J^40 IJ-4C1. JC2 . 

JJ-- i J 

IF< JJ. £Q. 13-,AND- ISU7. NE. 1) JJ=«23 
IF<MNC<JJ). EQ. 0) GOTO 240 
IF(LIKL£( ja>. GE.ELJVXH) GOTO 240 
ELMIN^LIKLEUI. JJ) 

- Liaiw-xx 

JJSAV»JJ 

240 CONTINUE - - 

258 CONTINUE 

IF<ELMIH. EQ. VMftX5) GOTO 328 
C If NO MORE LIKELY CLASSIFICATIONS GOTO 328 

— LUAaclJCW-UAV — 

JJTAB< IK)=J.JSAV 

LIKLEC MSAV^XJS4VO^09a 

C RAISE LIKLE 

- 388 CONTINUE 

C 

UC*X04 

328 HC*IK-l 

XFCI IC.EQ .-8> OOTO 528 

DO 500 K=l, IK 

IIJi^IXTABClO - 

J»OJTAB<K) 

IF<CLAS8UI>. NE-aX GOTO 588 

C SEE IF U£ CAN MOVE SOMEONE OUT OF GROUP J INTO A LIGHT CROUP 

XS4^8TART-CJX^HCN«<m<U>4^INCR4UX - 

JS2»START(J>-INCR<J> 

LFC-J8l,-CT-^J82X-C4iL4.-8U4P<U81.#U88> 

ELMIH»VMAXS 

DO 458 USaU84^^ J82 

l»OFS< JS) 

D(L 448 IU^UC1^-4C2 

UJ=IJ 

IFCaU.EQ, IX. IS87, HE. L> 38^2^ 

IF<NCHROM(JJ) . GE. MHC< JJ) > GOTO 448 

I F< LIKL£< I . JJ),CE , VM AN 5 » G OT O 448 

DLIK»LIKLE( I. J J) -L I KLE< I « J ) 

C BL IK- 18 8 - MEASURE OF TM8 LXKELXN008-TNAX 4 8EL8NC8 T8 GROUP UU 
C AND DOESN'T BELONG TO GROUP J 

4 F4 BUI 1C- CE. EL M I A) G AT 8 448 

ELMIH»DLIK 

ISAVal 

JSSAV«JS 

UJSAV^UJ 

440 CONTINUE 

459 CONTINUE 

IF(EL«1N. EO.VMAXS) GOTO 580 

. X-tF-^NO-MO V E ga r - -OE--U - GAH-8E— HADE# GO TO 5 88 

C OTHERWISE. MOVE OBJECT ISAV FROM SLOT JSSAV TO CROUP JJSAV 

C THEN. MOVE OBJECT -14 TO BLOT- JESAV - - - 

CLASS< 1SAV)=JJSAV 

MCHRONCJJSAV)=NCHROMt JJSAV^ + l - - - - - 

OFS<START<JJSAV) )«ISAV 

S lAg.r< JJSAV )« START (JJSAVX*XaCR<JJ.SAV) 

c 

_ CLASS<m»J 

OFS< JSSAV)*II 

5 00 tOHTIHUE - - 

C 

_SJ>8 CONXiHUE 

C 

C check: for still unclassified and i>UT AT BOTTOM- - - - 

C 

DO S88 IS=»IS1. IS2- - 

I I=LOFS< IS) 

IF< I I. EQ 8X C0.TQ.898 . 
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237 

IF(CLASS< It >. HE. a> GOTO 996 

CtHSS<M)=25 

965 IF<$THRT<25). CE. 98) GOTO 989 

STttRT<25)»SI8RT<25)+l 

IF(0FS<STftRT<25) ). HE. 0) GOTO 965 

0 F.S < GI-ftR-tC 2SXXiiX.l 

989 COHTINUE 

C. - 

CALL MVL< 'OS KRAR. 4) 

CALL UPARAH<92»KPAR.HEX-TPH) 

C 

-C 

CUROl.H-7 

CALL CEKOBUEv CUROT-tU-ie.) 

CALt HVL<CLASS(1 ). OBUP< 961 4 1 8 )> 69) 

CALX. RUT <DBU£..CUROi.H,.ie) ... 

C 

OALL-CLOSEIOBUR) 

CALL APHASE(HEXTPH) 

.£. - 

IF< ISBB. EO. t> CALL QPRIHK'l') 

R.E1URH. 

END 


C. 

C KFIX • 
* 


CHROnOSOilE CLASSIFIES PART 3 
- -S-YH-XAG4-XGAt^ CO RRE C T l O H O F CL A S8 IF 1 CA Tl O H 

- 8UBR0UT1H€ KFIX - 

COMMON /Cl/ HOB , IBIR 

COHHCH. /C-l/- CHU-R..BHXBUF.,-L«GB4)F^N«>HL. CUROX»X 

COHHOH /Cl/ SST.EST 

4XO HH OH /C l / SPIOP . SP L T H. SP ARED 

COHHOH /Cl/ HCHR 

COHHOH-^C-l/ CFCUR,-R»l 

COAHOH /Cl/ 8AHB.AHIS 

COn»ON-V.C.l/.-OBUF-^BUF- - - 

BYTE LRGBUF<78.83) 

BYTE 0BUE{2124) 

LOGICAL BGROUPCSB) 

- LOC-XCAL -CCfiOUP-ttB) 

LOGICAL GCR0UP(6B) 

LOGICAL -F-GRDOR-(«)- 

LOGICAL EGROUP(68) 

1-H « G6 B 1 1 0 0 40 4 6-) 

INTEGER DP0IHT(6) 

XHTECEA-IIOGHAIG) - 

INTEGER IIFCHR<6) 

INTEGER T1GCHR<C) - - 

INTEGER KPAR<92) 

LNTEGRR-O F S <91 ) 

INTEGER LGFS(98) 

- T^NTEGER IRR0F-<9A> 

INTEGER JPROF<90) 

tRTE&£ft-KG&ANR<G> - 

INTEGER JFETUR(2B) 

-X-H T ^ ER 8PAR<5) 

INTEGER BNAX 

IlFFEGER 6PL - - 

INTEGER CHSIR<1S<68> 

- INTEGER COROLH - - • 

INTEGER PAR<10) 

REAL- -ABLE-) 

REAL CB<6) 

REAL -RATIO-4-1 2) 

REAL CF0UR<6eWS). PHK6B. 15) 

REAL AFOURv'SI, 15). BFOOA<6B, 15) 
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CQUIVALCNC£<SPAR<2>*BPL) 

COUIVAi^HCE^ <CfOUk.Ct^i^^A^(WRrCi^tX)~ 
EQUIVALENCE <PHKl, D.BFOURd, l>) 

EOU I VALE N-CE < HL.-NU3> 

EQUIVALENCE <NaNOd. Il> 


DATA HD/0/ 

-DATA NDCHR^B/ 

DATA DGR0UP/C9*. FALSE. / 
DAIA-COflOLlP/Ca*. FALSE./ 
DATA FCPOUP/SQ*. FALSE. / 
DATA EGftOUP/’£d«. FALSE. / 


CALL AFILE<OBUF. 1. ^RCft M3> 

CALL OPEH(OBUF. !A24.l.d/ 'RCft' > 

CALL GLAB£LCOBUF>SPAR. 1B> 

. CALL- R P jUt A»XHBJ«LJ<JLAJt^-a^ 

READ RESULTS OF COHVEHTIOHAL CLASSIFICATISH AND 
EXTRACT GROUP CLASSIFICATIONS 

D'CROUP 

CALL GEKOBUF. 3/ IB) 

CALL 41VL<aBUF<2l74X-SV^L0fS<T)^192V 


IIDCHRa-36>«e 

lLaFS;»LaFS(-n- - - 

IFdLOFS. EQ.B) GO TO 1B4 

DCMUP LILTIFS)-. TRUE 

I IDCHR<I-36)»IL0FS 


-_b-t;roup 


-00 -ta2-X^X3,4S- 

IIGCHRa-12>*8 

110FS^L0FSCX3 

IfdLOFS.EQ.B) CO TO t02 

- BCROUP ( I LOFSi a-. TRUE 

I IBCHR<I-12)aIL0FS 
CONTINUE 


DO 1 05U la45^4S 

ILOFS*LOFS< I) 

IFdLOFS, EQ.B)- CO- TU-IU50- 
ECROUP<ILOFS)=». TRUE. 


DO leSi I«4S. 52 

XLaFSaL0FS(3) 

IFdLOFS. EQ.B) GO TO 1B51 
ECROUP.<ILOFS) = . TRUE, - 
CONTINUE 


-GROUP 


DO 106 1=55.58 
I IFCHSn-54>=0 
ILOFS=LOFS< I) 

4Ld LUES-. EQ-^BL -GXLJTO-IUS 

FCROUP<ILOFS)=. TRUE. 

lIFCHR<I-54-XaILCFS 

CONTINUE 

G-GROUP. INCLUDING 
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■c — 

DO 197 I-(S>?6 

IICCHR<I-M->^9 - 

ILOFS»LOFS< I) 

IF< ILOFS. Ea,*i- ftO TO- IM- - - 

GCROUF<U.OFS)>. TRUE. 

T-tCXlUtt.I.-tfO»IJ.eiES _ ....... . . . 

107 COi;7INUE 

C . . 

C GET CHROHOSOflE BIRECTORV 

C - -- ■ - 

CALL GET(03UF. 1/ IB) 

r At I a VL ^ OBUP- f I B 4- 3 > . fi P I n Si > 

HCHft«lV2<0BUF< IB+ir>) 

CALL MVL<OBUF<ia4-;^l>^ CH91ft<l7 l)^24i^i5*3d> 
CALL GET<0BUF7 2 * IB) 

CALL «VL<OBUF< GHDlftd. 31 ). a^!5*3B^> 

C 

JA¥-B 

BO 319 IX»1.6 

II«IIDCHRflX> - - - 

C 

tFCDCROOPdi)) CO Ta 3^4 
CO TO 319 

— C O MTIHU C 

C 

4F£TUR<-l^a ---- 

C 

CURatW«CH-B«<-L^-M^ 

NL»CHBIR(2^ Tl) 

HSaCHBIR<3. ID 

IF(NL. LT. 1. OR. NS.LT. 1 > GO TO 318 



LPG*1824/NS 

C -CIRES^aET- 

C 

oq ■ .388-1 «.1^.RL 

CALL GET<OBUF. CUROLKf IB) 

. Ea. t->- LAqT«»^ia - 

CUR0LN>CUR0LH^1 

- BO 381-1 M=^t.LPG 

NG»NG4>1 

OALL - 3 SU TCH <8 ^ JA- y ^ 

BO 338 NS 

- - -LRG8WX4.4iqX»08Uf<-J+-Tq)- 

338 CONTINUE 

TB»IB+HS - 

ir<HC. GE. NDCO TO 311 

-081 COWO-W4UE 

389 CONTINUE 

Oil -qOHTTHUE 

c 

C . . H81H LOG IC 

C 

I F^.- NO-T^ OO-TO-49-1 

C 

HL2 = HL/2 - 

LT0Pl»2 

LT0P2«HL2-1 

LB0Tl»HL2+l 

~tBO-M-»-Kfcr--l 

C 

1BU«T*8 - - - - 

ISUNB»8 

HT0P*8 

N8OT-0 


DO 411 J-LT0PULT0P2 
B0-418-3*»UHS 
IVAL»LRGBUF(I. J) 
lF(iyAU-E8.8X-Xa TO 418 
ISUHT-ISUHT+IVAL 

NT 0 P«HTQP 4'1 
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418 

4ii 

C 

C 

r 

CONTINUE 

CONTINUE 

1T0P=»1SU«T/NT0P 




DO 421 J«LB0T1.LB0T2 
DO 428 Dl^NS 
lVAL»LRCBUFCn U> 

IF< TVAL EO. 8) CO TO 420 
I$UHB»lSOnB-^I VAL 

UaAT flUDA T JL-I — - 

4 29 
421 

r 

CONTINUE 

CONTINUE - - 

IBOT*ISUHB/NBOT 




- - 

ND»ND+1 

PAT in^ MD ^ »FI n6T^ rrnpi yFf fiATYfMTl 

c 

DP0IHT(H5)«n 




401 

c 

CONTINUE 




319 

r 

CONTINUE 




C 

c. 

DO FOR B-GROUP 




c 

T\n T Vs1 . 4 . 




IDIIBCHRUX) 

I F< II. £0. 83 CO to. .550 — 


CUR0LH-CH4X1 Ur<r WM> 
Nt»CKDIR(2« ID 
KS=^HB IR(3,. M V 
IBCDCHOIRCS^ in 



LPC=1924/NS 


DO i&ee i»nHL 
call GET 
CUfiOLH>CUROLH-«^l 

HG»NG'»-1 
DO -1039^ 

LRGBUF<J, HG>»OBUF< J*nB) 
1830 - COH-TINUC 
I 1 8*^ H$ 

l^U4G^4;E^L3.--C4U3a-4 

1881 CONTINUE 

1-888 CONTINUE 

1811 CONTINUE 


C 

C EXTRACT THE SO-CALLED 9-BAHD 

ISTART=FLOAT< IBCI*NL>/188. 8 

ISTAitT»»NU^lSTART 

IEHB»ISTART+ISTART-t 

HL2-NL/2 

1F<IEND.GT.HL2> IEND«ML2 


NP8«8 

_ - DlODi>8,a - 

DO 351 I-ISTART. lEMD 

- - DO- 352 

IVAL»LRGBUF<J. I) 

-LF < XVAL^E 0 i^GO ..LO . 3 32 
J> rLCHT< :VAL) 
HP£^HPB+ 1 
352 CONTINUE 

351 CONTINUE 

BD< IX)^BIOD/'FLOAT<HPB) 

358 COWTI^Ul^ 

C 

C CLASSIFY THE B-GROUP 
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c 

BO 360 1*1/4 
BENMAX*0 0 

DO- 

If <BB< J> . te. BeKH0X> GO TG 361 

If < lOBJ. LT. U CO TO 361 

BEHHOXi^SBC^X 

JS*J 


364 CONTINUE 

OfS< 12^1 )»t06J 

D n / 1 c \ A a ^ _ — 

3 68 

r 

- W V — WW - - - 

CONTINUE 




- 

c 

<• 

BO FOR f~CR00P 





BO 458 IX»l/4 

J 1 1~ T rci^uo / 7 




r 

--i - “ 

IF<II.EQ.8) GOTO 458 




CUROLN-CHBIRCl/ II) 

HI »r‘un iD/o. Ti ^ 

HS*CH01R<3/ II) 



r 

LPG=1024>^NS 




DO 2309 I*l/NL 

2330 

CUR0LH>CUR0LM>1 

»0 23«t- IH*l. LPG 

NG»H6-M 

2320^ 

LRCBUFIJ/ HG)*OBUF< J>IB> 

COHTIHUF 




239 1 
- 2309 
231 1 
-.-C 

I6»Z64HS 

TF < NC, C£. NLX CO^ TO 23U 

CONTINUE 

CON T INUE - 




CONTINUE 




C 

c 

EXTRACT INTEGRATED OPTICAL DENSITY 
GI0B*8. 0 

HPC=8 - 

BO 451 1*1, NL 

- -- 

— 

- - 

4S2 

451 

IVAL»LRGBUf <J, I) 

If < I VAL. £Q. 8) CO T0 452 

GtOD>GIO04-FLOAT< IVAL> 

HPG-«PG*l 

CONTINUE 
fOHT INUE 


- - 

---- 

c 

CB< IX)»CIOB/fLOAT<NPC) 




458 

- -6 

GONTINUC 




C 

CLASSIFY THE F-CROUP 





r 


DO 469 1*1/ 4 
BEHMOX*0. 0 
BO 461 4 

If<GB<JX.t£.D£HIWX)^ CO TO 461 
IOBJ»lIfCHR<J> 

I^<_X-Q04^T^-44-CO TO -46 1 

BENNOX*GB<J) 

JS=^J 

461 CONTINUE 

0fS<;59-I - 

GB(JS>»0. 8 

— 460 COM-MUtf 

C 

t DO ro0 C-C0OUP 

c 

BO -J518 XX-1.4 . 

II*1IGCHR(IX) 

LF C ILE Q g> GOTO 5 18 
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c 

auRjoui=*cm>iiicuLi) . . 

NU*CHB1R<2. tl ) 

HS»CHBIR(3^X1X 

NG>e 

LPG.?,lfl24yHS 

C 

Di)-JL3a0 

CALL GETCOBUF/ CUROLH/ I0> 

_aU^tOLH?CUROLil:^-l 

BO 1301 LPG 



DO 1330 J^l.HS 

LRGBUf XU.-HG-X*aaUF<^4*tB4L 

1339 CONTINUE 

- . i&a-ia+Hs -- 

IF<NG. G£. NL) GO TO 1311 

taaJ CONT-XHUE 

1300 CONTINUE 

131L -CONJIHUE--- 

C 

C EXTRW:T--I1EH0I TV PROFILES 

c 

B4)-503 XC-al^L- 

HP* 0 

IPR0F<K)=t9 
DO 501 L*ii NS 

I VAL*LROBUFa^ K> 

IF< IVAL. EQ. 9> GO TO 501 

1 pjXO F < y X = 1 M IMM. 

HP*NP+l 

-501- - COW-TIHUE- 

IPROF<K>»IPROF<K)/NP 
500 CON-TINUE - 

C 

--C A N AL Y S E T HE BA N BS IN TH E C-CRW P - 

C 

- BO- 5U-X«-L^NL 

511 JPROF<K)=0 

- C - ■- •• 

NLM2«HL-2 

BO 512 <Ca3^NL.a2 

1V*0 

BO 513 iU»1.5 

IV»IV+IPROF<K+KK-3) 

5-13 aONTIHUE- -- 

JPROF<K)»IV 

-512 . . ,C JHIJHUt .. . 

NA^^JPR0F<3) 

DO 514 K = 4/ NLH2 

IF<MAX. GE . JPROF<K) > GO -TO 514 

HAX»viPROF<K) 

JCBAW-B^MC — - - 

514 CONTINUE 

C 

NSANE«0 

BO 515 k:=^K0ANB^NLN2 
IF<JPR0F<K).ME.t1AX) GO TO 516 

M Srt NP 

515 CONTINUE 

- 516 CON-TIHUE -- - - - 

KGeANB<IX)*KeAHB+NSA«E/2 

•-€ 

510 CONTINUE 

— C 

C CLASSIFY TH G-GROUP 

BO 521 I»l. 4 

HAXBP»0 

DO 522 J=l.4 

lOBJ^I IGCHR<J) 

IFXiOOO^. LT.-1> GO- TO-522 

NAXOP«KGeANB< J> 
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522 CONTINUE 

= 0 P C << 4^- > » I0 »J 

iCGBAHO<J$>>e 

CON^TWUS 

C 

^ CLASSIFY THE D-GROUP^ 

C 

&0 

RNAX-9.0 


00 - - 

IF<RftT10<J).LE.RMAX> GO TO 602 

l0fi^*BP^I4<TU4^ 

IFCOBJ.LT. 1) GO TO 602 

— R HftX»R W 0 <. n 

JS>J 

602^ COHTTHUE - - - 

HBCHR»NJDCHR + 1 
0F5<43-I )-JOBO 
RATIO< JS)a0.0 

600 CONTINUE 

-X -- - - - . --- - - - - - . . . 

1000 FOPMAT(Iie) 

2^00 FORMATX3X;.00IcI) 

3000 FORNAT<MCHRONOSONE %12) 

40M FOR NAT<4 -0 F ie. 2 > 

C 

CALL -«PARAIiC92*KPARv^> 

C 

CALL CtOSE^OSUF) - - - 

CALL APHASEO) 

_C 

CALL EXIT 

- EHB. * 

C ** 4; **«*«♦# « 

C * 

C ABNORtt' • 

C * 

C « * « 4i ♦ 4c * « » 

c 

C RaUTINE TO ASSESS HORXALITY OF CHRONOSONES IH A SPREAD 

^ 

' SUOROUTIHE ABHORH 
CONHON /CU NOB. IDIR 

COHHOM >CT/ CHDiR# SRLWf/LRGSUF. NS# HL. CUROLh 
COHNON /Cl/ SST# EST 

CONHOTj /C f/ SP fOfirSPLTH/ SPAREA 

CONMOH /Cl/ NCHR 
CUFffiOH 7C1/ CrOUffrPHl 
COHNOH /Cl/ BAHB.AHIS 
COHN OH ■ / CT/* d BUF I BUF 
BYTE LRGSUF<50#90) 
iTYTE dB0FY2T24) 

BYTE TENPB 

nnri cal opt i. opt2; opt3 

INTEGER IPROF<90) 

mEGER JFETlfRT20I 

INTEGER TEMPI 
" rNTEGER "SFARYS"? 

INTEGER BNAX 
nrr£GER“B'ANB< 130> 

INTEGER BPL 

TNTEGERr C¥BTR< 1SVG0) " 

INTEGER CUROLN 

C INTEGER^^ SS:T<7E)#ESTa6y 

INTEGER PARU0) 

; 1 5 )TPHT7'6 0 , 1 ^ 

REAL AHI$<180) 

REAL CdSlH£<l50);SIMEU50> 

REAL AFOUR<60# 15)# BFOUR<60# 15) 

' c " ‘ ■ 

c 


EQUIVALENCE<3PAR<2)# BPL) 

EQUIVALENCE < CFOUR < 1# 1 ) , AFOUR( 1.1) ) 
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251 

EGUIVALCNCe <PHt <1/ 1>,BF00R< 1. 1 >) 
EOUIVAieHCE <HL. NLOr 
EQUIVALENCE (HUilOB. II > 

'DATAXOPTi/^l'/ 

DATA LOPT2/ 'T2 V 
DATA lOPT3/'T3'/ 

DATA LOP /^OPV 

c' ■■■ 

c 

C ■ ■ 

10 CONTINUE 

c" ■ ' 

c 

C'"' 

CALL AFILE<OBUF. I, 'RCft 
CALL OPEN (OBUF, 1024. 1*0. 'RCR* > 

CALL GLABEL<OBUF*$PAR. IB> 

c 

C 

c — 

CALL GET(OBUF. 1. 18) 

call flVL^OeUh < IB^-3)*SPI0D. 12) 
NCHR=lV<OBUF< IB+17) ) 

CALL HVL<OBUF<lB+3i).CHDIR<t. n.2*l5*30) 
CALL GET<OBUF. 2. IB) 

CALL NVL (OBUF < IB'1'31 >. CHD!R<{. 31 )* 2*t9«30> 

C 


c ' 
c 

c 

"393" 

C 

DO 310 II«l*HCHft 
JF£TURn):*e 

WRITE<5. 3000) I I 
CONTINUE 

LAST IB -IB 
CUR0LH-CHDIR<1. It) 
HL»CHD1R(2* ID 
HS-CHDIR<3* ID 

IF<NL. LT. 1. OR. HS LT. 1 ) GO TO 318 
NG«e 

C 

LPG-1024/NS 

LINES/GET 

C 

DO 300 I»l. HL 

CAiLL GET(O0UF. CUROLH. IB) 
IF<I.EO. 1) LASTIB^ilB 

CUROLH>CUROLN^l 
DO 301 III-l.LPG 

NG»HG+1 

CALL SSBTCH<9. JAY) 

302 

iF<jftv.EQ.i> uRiTC<s. aeae) <obuf<J 4IB)< j>i. hs) 

COHTIHUE 

330 

DO 330 

LRCBUFC.^, MG)-OBUF<J'*^IB> 

COHTIHUE 

IB°IB«NS 

301 

IF(HG. G£. NDGO TO 311 
COHTIHUE 

300 

311 

C 

C 

CONTINUE 

CONTINUE 

c 

c 

c 

c 

c 

c 



c 


C . . MAIN LOGIC 

c 

c 

c 



HS«1»NS-1 





c 

c 

c 

c 


c 
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H MON 0*0 

N«Xe0 

NLT0»0 


ira SMnmTTir 

«AkLOC-i 

LINNAX»LRGBUP<I. K) 
DO SiO L»2. N$ 
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511 

518 

C 

IFCLRGStJFa. K ; . LE. LINNAX) GO 
LrNNAX=LRGBUF(L, K> 

MAXLOC^L 

CONTINUE 

CONTINUE 

TO 511 

c 

c 

c 

JTH=LINNAX/2 

IPROF<K)=NS 

DO 530 L=l, N3 


538 

C 

532 

C 

IF<LRGBOF(L.K) ,GE. JTH) GO TO 

IPROF<K)»IPROF<K)-l 

CONTINUE 

CONTINUE 

532 

540 

C 

Hi5~540 L=l. NS 
LL=HS+l-L 

IF<LRCBOF<LL;K)/Ce. JTH> CO TO 
1PR0F<K>=IPR0F<K>-1 
COHtiHUE 

543 


continue 

IP< tPKOP<K> .GE.HS) tPROF(K>>e 


“C 

500 

CONTINUE 


c -'*■ ' 

c 



c 

IPTOT*0 



HL«2=HL-2 
DO 600 tC>3, NLN2 


680 

IPTOT=rPTOT+JPROF<K) 

COHTIHUE 


^ C ' 

C 

IPftVE=«IPT0T>'NLN2 

DO £20 K=3. HLN2 
IPROF<K)-IPROF'<IO-IPftV£ 

IF< IPROF<K> LT.O) HLT0»HtT0+l 

- - - ■ 

c 

XOfiTlTHOr 

IPROF<n = l 
IPR0F<2)=*1 
ZPR0F<NL)=>1 
IPP.0F<HL-1>=1 

- --- - 


c 

c 

c 


IF(aAY.EQl) URITE<5, 1306) < I RROF < U . L* 1, ML ) 

C 

c 

c 

C ■ ‘ ■ ■ 

c 

C TYPE 1 DETECTION* 

C ^T LEAST FIVE H£G NUMBERS IN A ROM !H P ROF ILE 

C 


TYPE 2 DETECTION 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


c 

c 

c 

c 

c 

c 

c‘ 

c 

c 


red 


c 


c 

c 

c 


rei 
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AT LEAST POUR OUT OF 


A CONtiCUOUS SEVEH 


HUiieERS IH PROFILE ARE NEGATIVE BUT HOT 
FIVE CONTIGUOUS/ OR THREE CONTIGUOUS 


256 


NOTE THAT THE SEARCH FOR TVPE 1 TAKES 
PRECEDENCE. EXCEPT THAT TYPE 2 SPANS A 
WIDER INTERVAL. THE SEARCH 13 STRICTLY 
ONE DIRECTIONAL. FROM THE TOP OF THE PROFILE 
ARRAY TO THE BOTTOM. THIS SEARCH PATTERN 
F E A T U R £S SO «E ANBIGU J TY. BUT H O THING SER I 00 S 


TYPE A CENTROMERE- 

SXEJED/ LOWEST DIP IH PROFILE IS FIRST OR 
LAST ONLY IN SEQUENCE OF NEG NUMBERS THAT 
_ _ INDIC ATE THE CENTROME R E. THIS IS EXPECTED TO 
OCCUR NEAR THE END <TOP> OF THE CHROMOSOME. 


TYPE B CENTROMERE- 

SYMMETRIC/ LOUEST DIP OCCURS CORRE8PONDIHCLY 
"POSltlOHED IN THE PROFILE fO THE CENTER OF 
THE CENTROMERE IN THE CHROMOSOME. 


K«0 

IFEtUR^ 

K*K+l 

rF<K.GT. NL-4) CO TO 75B 
IF<IPROF<K).G£,0) CO TO 7CB 
I F < I P R O F < K + 4 > . GE . 0 ) G O' f O' ‘ 71 B 
IF< lPR0F<K+3> . GE.0) GO TO 71B 
r F’< I P' R O f < K ♦ 2 ) . G E' .' e > ' G O 'T 0 ' 7 1 B 
IF<IPROF<K4l).GE.0) CO TO 710 


IFETUR»IFETUR4l 

KFETllR’l 

JFE TUR < I FET UR ) =«KFETUR 
SCAN TO POS HUMBER 


K=K + 4 
K*k + i 

IFaPROF<K+l) . LT. 0) GO TO 701 
GO TO 700 ' 



'7 10' ''continue 

NMYnuS'^I 

DO 720 KL=1 . S 

KK=KL-Z 

_IF<K+KK_GT. NL ) GO J_0_ 7 2J 
iF<'rp‘ROF<K’+kK) TgE. 0) GO TO 720 
N«INUS=MMIHUS+1 

720 CONTINUE 

721 CONTINUE 


C 


731 


C 


C 

C' 

C 

/ 


C 


C 


. .1 F< NM IHUS . L T. 4 > GO TO 79 0 

IF£TUR»IFETIJR + 1 
KF£TUR=2 

JFETUR(IFETUR)=»KFETUR 
K=k + 4 ' 

K*K+1 

“IF< rPR0F<K4l> . LT.0) GO TO 731 
GO TO 790 


CUhT INUE 

URITE<5. 4900) (JFETURC JF). JF*1/ IFETUR) 


4 30 0 


FORMATC' FEATURES, ’,2313) 
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c 

IF^HLTe. GT, WL/3> GO TO 940 
GO TO 941 
949 COHTIHUE 

C 

■ yftfTE< 5^1094) 

1094 FORRAT<^ HOT A CHROHOSOHEM 

c ■ 


GO TO 950 

C'" 

941 , COHTIHUE 



“TF aTETU?T"rffr0 ) CO TO ”ST0^ 

IF< IFETUR.EO. 1) GO TO 910 
rF<rFETUP.Exr:2) CO TO 
IF< IFETUR.EQ. 3 ) GO TO 936 




GO TO 940 



9^30 

“CTIMTIHUE 
CO TO 950 



c 

920 

CONTINUE 




I AsrnB»jFeTOftrn >jFeTOft<a> 
IF<IABIHS.Efi. 2> UftITE<3< 1292) 



m i AB HOTELS > Uft I TE < 5 /1 3 92 > 
IF<IABIHD.EQ. 4) «R I TE <3. 1492 ) 

1292 

1392 

fORMAT(' CHROMOSOME IS 3ICENTRIC. OR BADLY 
FORMAK' CHROMOSOME MAY BE BICEHTRIC') 

TNISTED' ) 


1492 

FORMAT <' CENTROMERE LOCATION DOUBTFUL - PROBABLY NORMAL') 
GO TO 950 


C 

910 

CONTINUE 



911 

IF<UFETUR<1 >. EO. n GO TO 911 
*iRITE<5. 1291) 

CO TO 912 
0RITE<5- 1191) 

• • '■ - -- 

- - 

912 
1 19 1 

COfiTIHUE 

FOFMflT<' SINGLE CEHTRONERE IS WELL DEFINED 

- HORNAL') 


129 1 

FQRf1AT<' SINGLE CENTROMERE POORLY DEFINED - 
GO TO 950 

PROBABLY NORMAL' ) 


C 

900 

COi'ITIHUE 




t' F < Hi* rur: '3 0 > (to to “* 90 r 

URlTE<5v 1932) 

GO TO 903 ' 


901 CONTINUE 

yRiTECS. 1901) 

H? ^CONTJ_HUE _ _ 

1901 FOPMAT<^ HO CENTROMERE FOUND. S 

T ^ COrtflON IN SMALL CHROHOSOWES - PROB NORMAL' > 

1902 rORMAT<' HO CEHTROflERE FOUND - POSSIBLE ACENTRIC') 

c‘ ■ '■ ■ ■■■■ ■ 

c 


c 

c 

"950 ’ 

c 





CONTINUE “■ 




c 

c 

c 

c 

c 

c 

c 


■ ■ - 

— 


310 

c 

c 

CONTINUE 

URITE <5,T030) 
CALL APHASEUS) 
CALL CLOSE(OBOF) 

- - ■■ - - 

— 


c 

100 0 

FOEMATII 18) 




2000 

3000 

3030 

f ORMATOX, 3913) 

FORMAT <' 0CHRONOSONE '/I2) 

FORMAT^' ) 

CALL EXIT 


— 



END 
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We claim: 

1. An operator assisted system using a programmed 
computer for producing karyotype images from a slide 
mounted on the stage of a microscope, said slide having 
a plurality of dispersed metaphase chromosome spreads, 
comprising 

moving said stage under instructions of said pro- 
grammed computer connected to control said mi- 
croscope to successively present said plurality of 
dispersed metaphase chromosome spreads to the 
optics of said microscope, 

storing the location of each spread, thereby automati- 
cally prescanning said slide for chromosome 
spreads, 

moving said stage under instructions of said pro- 
grammed computer to place the slide motionless on 
said stage at each successive chromosome spread 
location, thereby enabling an operating to view 
each successive chromosome spread to inspect the 
chromosome spread and determine whether it is 
acceptable for the purpose of analysis or not, 

deleting under operator control the location of each 
spread determined not to be acceptable thereby 
establishing a list by location of which the chromo- 
some spreads are acceptable, 

again moving said stage under instructions of said 
programmed computer for generating a digital 
picture of each of said acceptable chromosome 
spreads, 

arranging the chromosomes in the digital picture of 
an acceptable chromosome spread in a karyotype 
format, and 

producing a visible image of the karyotype format for 
each acceptable chromosome spread. 

2. A system as recited in claim 1 wherein said step of 
producing a visible image of the karyotype format for 
each acceptable chromosome spread includes, 

displaying said karyotype format on a gray scale 
display, 

correcting any errors to provide a corrected karyo- 
type format, and 

printing said corrected karyotype format. 

3. A system as recited in claim 1 wherein said step of 
moving said stage under said microscope to succes- 
sively present said plurality of dispersed metaphase 
chromosome spreads to the optics of said microscope 
includes 

moving said stage with a scanning motion in succes- 
sive predetermined motion increments underneath 
the optics of said microscope, 

detecting whether or not a chromosome spread is 
present within the distance of the predetermined 
increment of motion, and 

storing the location data for each detected chromo- 
some spread. 

4. A system as recited in claim 3 wherein said step of 
generating a digital picture of each of said accepted 
chromosome spreads includes, 

successively moving said stage to the undeleted loca- 
tions of accepted chromosomes spreads to position 
each such accepted chromosome spread under the 
microscope optics, 

automatically focusing the optics of said microscope 
on an accepted chromosome spread positioned 
thereunder, 

photographing each said accepted chromosome 
spread through said focussed microscope optics in 
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a manner to generate successive picture elements, 
and 

digitizing each picture element generated in photo- 
graphing a chromosome spread. 

5. A system as recited in claim 1 wherein said step of 
arranging the chromosomes in the digital picture of an 
acceptable chromosome spread in a karyotype format 
includes 

locating each chromosome in said digital picture of 
an acceptable chromosome spread, 
orienting each chromosome in a predetermined direc- 
tion, 

measuring each oriented chromosome, 
classifying the oriented chromosome on the basis of 
measured length and centromeric index, and 
composing the karyotype format from the classified 
and oriented chromosomes. 

6. A system as recited in claim 5 wherein after the 
step of locating each chromosome in said digital picture 
of an acceptable spread there is included the step of 

assigning a different number to each chromosome 
which has been located. 

7. A system as recited in claim 8 wherein said step of 
composing the karyotype format from the classified and 
oriented chromosomes includes 

displaying said composed karyotype format on a gray 
scale display, and 

correcting any chromosome orientation and classifi- 
cation errors. 

8- A system as recited in claim 4 wherein the step of 
producing a visible image of the karyotype format in- 
cludes 

converting the digitized picture elements into analog 
picture elements, and 

printing a picture responsive to said picture elements. 
9. An operator-assisted system using a programmed 
computer for producing karyotype images from a slide 
mounted on the stage of a microscope, said slide having 
a plurality of dispersed metaphase chromosome spreads, 
comprising 

means for moving said stage under instructions of said 
programmed computer connected to control said 
microscope to successively present said plurality of 
dispersed metaphase chromosome spreads to the 
optics of said microscope, 

means for storing the location of each spread, thereby 
automatically prescanning said slide for chromo- 
some spreads, 

means for moving said stage under instructions of said 
programmed computer to place the slide motion- 
less on said stage at each successive chromosome 
spread location, thereby enabling an operator to 
view each successive chromosome spread to in- 
spect the chromosome spread and determine 
whether it is acceptable for the purpose of analysis 
or not, 

means for determining under operator control the 
location of each spread determined not to be accpe- 
table thereby establishing which of said chromo- 
some spreads are acceptable, 
means under instructions of said programmed com- 
puter for generating a digital picture of each of said 
acceptable chromosome spreads, 
means for arranging the chromosomes in a digital 
picture of an acceptable chromosome in a karyo- 
type format, and 

means for producing a visible image of the karyotype 
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format for each acceptable chromosome spread. 

10. A system as recited in claim 9 wherein said step of 

producing a visible image of the karyotype format in- 
cludes j 

means for displaying said karyotype format on a gray 
scale display, 

means for correcting any errors to provide a cor- 
rected karyotype format, and 
means for printing out said corrected karyotype for- \q 
mat. 

11. A system as recited in claim 9 wherein means for 
moving said stage under said microscope to succes- 
sively present said plurality of dispersed metaphase 
chromosome spreads to the optics of said microscope 15 
includes 

means for moving said stage with a scanning motion 
in successive predetermined motion increments 
underneath the optics of said microscope, 
means for detecting whether or not a chromosome 
spread is present within the distance of the prede- 
termined increment of motion, and 
means for storing the location data for each detected 
chromosome spread. 25 

12. A system as recited in claim 9 wherein means for 
generating a digital picture of each of said accepted 
chromosome spreads includes, 

means for successively moving said stage to the unde- 
leted locations of accepted chromosome spreads to 30 
position each such accepted chromosome spread 
under the microscope optics, 
means for automatically focusing the optics of said 


microscope on an accepted chromosome spread 
positioned thereunder, 

means for photographing each said accepted chromo- 
some spread through said focussed microscope 
optics in a manner to generate successive picture 
elements, and 

means for digitizing each picture element generated 
in photographing a chromosome spread. 

13. A system as recited in claim 9 wherein the means 
for locating each chromosome in said digital picture of 
an acceptable spread includes 

means for assigning a different number to each chro- 
mosome which has been located. 

14. A system as recited in claim 9 wherein means for 
producing a visible image of the karyotype format in- 
cludes 

means for converting the digitized picture elements 
into analog picture elements, and 

means for printing a picture responsive to said picture 
elements. 

15. A system as recited in claim 9 wherein said means 
for arranging the chromosomes in a digital picture of an 
acceptable chromosome spread in a karyotype format 
comprises 

computer means programmed for locating each chro- 
mosome image in an acceptable digital spread, for 
orienting each chromosome image in a predeter- 
mined direction, for measuring each oriented chro- 
mosome image for classifying the oriented chromo- 
some images, and for composing the karyotype 
format from the classified and oriented chromo- 
some images. 
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